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INTRODUCTION 



Dear Member 

With Phil Kenyon software hunting in the frozen wastes of the U.K, it 
falls to me, the good looking member of the family, to wish you all the best 
for the coming year. 

1985 will see Grandstand striving to greatly increase the range of soft- 
ware available for your favourite micro. We are already well under way 
with negotiations for a range of software from John Sands, the Sega 
distributors for Australia. This will in effect boost the range of cassette titles 
available by almost 30 titles. We will, of course, continue to produce high 
quality home grown software and a brand new range of exciting arcade 
cartridge games from Sega Japan in our January production schedule. 

January and February will be a busy time for all of us here at Grands- 
tand as we prepare the details of our Amstrad CPC464 campaign, due for 
a March 1st launch. For all those involved it will mean many months of 
evening demonstrations, roadshows around the countryside and putting 
oneself in grave danger of being bitten by the dog when you eventually 
arrive home and he does not recognise you. 

It is becoming traditional to finish the introduction with a comical story 
and 1 would like to import to you some of the strange letters and requests 
we get from time to time. 

One new Users Club member thanked us for sending out their free casset- 
tes but was getting a terrible screeching noise when they tried to play them 
on the families stereo system. 

Another member complained of tape read error, and when the cassette 
was tested, our Service Department found that the owner had inadvertantly 
pressed the record key on his cassette recorder and had made a perfect 
recording of the famiies pet canary, singing its heart out. 

Finally we had a complaint that one getting their brand new computer 
home the proud owners were experiencing difficulties obtaining colour on 
the families portable T.V. A little difficult when we found it to be a black 
and white set! 



Yours faithfully 

5. Kenyon 

GRANDSTAND LEISURE LTD 
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LOCAL SEGA USERS CONTACTS 

PUKEKOHE SEGA USERS CLUB 

C/o 4 Roose Avenue 

Pukekohe 

Contact: Selwyn 

Ph, Pukekohe 86-583 



AUCKLAND CENTRAL 

c/o 287 Broadway Furniture 

Newmarket 

Contact: George Shaw 

Ph, 547-543 



ROTORUA 

Rotorua Sega Users Club 
C/- 61 Devon Street 
ROTORUA 

TOKOROA 

Tokoroa Sega Users Group 

C/- 1 Pio Pio Place 

TOKOROA 

Contact Geoff Phone Number 67105 

Tokoroa 



TARANAKI 

South Taranaki Microcomputer Society 
DM. Beale 
7 A Clive Street 
HAWERA 



NAPIER 

Napier Sega Users Club 
Sec E, P. Lins 
41 Higgins Street 
NAPIER 

The above are contact names and ad- 
dresses for Sega Users Clubs. If you 
wish to have your club advertised write 
to Sega Users Club P.O. Box 2353, 
Auckland 
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READER'S LETTERS 



Dear Editor 

Is it possible to get the Sega to do power 
calculations such as; 

X", ie 23 ? I can find no reference 
to this in the handbook that came with 
the machine. 

Alternatively, can the Sega obtain an- 
tilogarithms? It can do LOGS, but will 
it go the other way. If it won't do 
powers, but can do antilogarithms then 
I can use logs to get the powers. I 
suspect that it must be able to. it would 
be too silly for it to be able to get 
logarithms, but not antilogs. 

Any advice would be gratefully receiv- 
ed, as 1 now have a number of TSR 80 
stats programs that look as if they will 
otherwise be easy to translate. 

Regards 

Dr A S Campbell 

EDITORS REPLY 

It is possible to do X^ type calculations 
using the A sign. This is found on the 
top right of the keyboard on the AUTO 
key. 

To obtain antilogarithms use the EXP 
function. Please see page 130 of the 
Sega Level Hi manual. 

DEAR EDITOR 

Business programs are a bit thin on the 
ground. What's coming along? 

S Cassldy 
BUCKLANDS BEACH 

EDITORS REPLY 

This frequently asked question 
highlights the software equivalent of the 
story of the infinite number of monkeys 
and the infinite number of typewriters. 

Theoretically, eventually one of them 
will write the entire works of 
Shakespeare — but do not hold your 
breath . . . 

Games software contains relatively few 
user controls, and the programs 
themselves are relatively easily and ob- 
viously tested. Business and utility soft- 
ware requires use of virtually every key 
on the keyboard, plus the shifts and 
controls. An infinite number of 
monkeys and an infinite number of 
computers is required to test something 
like a word processor through every 
possible combination of control and 
display sequence. 



The task of testing and design of the 
user interface is several orders of 
magnitude greater than an arcade 
game, and the consequences of im- 
perfect software potentially more 
troublesome. Add to this the temptation 
strewn in the path of the programmer 
by the wealth of features that lurk within 
the SEGA so 'business' software takes 
time to develop- 

We have the SEGA 32K Word Pro- 
cessor and this will certainly be welcom- 
ed by the many Members who want to 
use the SEGA as WP system. 



DEAR EDITOR 

1 have a Sega SF7000 control station. 
1 would like to have a dual disk drive 
for business is this possible? 

EDITOR'S REPLY 

Across the Tasman the John Sands cor- 
poration have interfaced a dual disk 
drive. We hope to be seeing one of 
these units this year. The Australians 
have also managed to Network 8 Com- 
puters to 1 disk drive - 
We also have the following business 
orientated packages available: 

Easy Writer 

32K Personal Record Keeper 

Accounts Receivable 

Accounts Payable 

Mailing List 

File System 

Graph and Chart Presentation 

More business orientated software is for- 
thcoming on disk and cassette soon. 



DEAR EDITOR 

I have had a SC3000 for just on 3 
months now and my family and I am 
having a lot of fun using it. However, 
I would like some more educational 
software. Do you have anything 
coming. 

EDITOR'S REPLY 

After listening through many closed 
doors and standing near open windows 
1 hear that there are 3 new educational 
programmes that will be released in 
January. There is also a shipment of 
software aniving from Australia in the 
near future. This should include educa- 
tional software. 
To see just what new software is on the 



way please see the reviews section of 
this magazine. 

DEAR EDITOR 

One thing has been puzzling me about 
the Sega, that is how to use DATA 
statements. 

Could you please inform me about this. 

Ben Hoist 
HELENSVILLE 

P.S. Great magazine 

EDITORS REPLY 

Please see the programming explana- 
tion section of this magazine for help 
with DATA READ and RESTORE. 

DEAR EDITOR 

1 am a new computer owner so 1 am 
hoping you can clear up a small pro- 
blem I am having. 

We have a copy of your "MUN- 
CHMAN" cassette. 1 can only get this 
to load on the first side. 1 know there 
is program on the second side but it will 
not load. 

D Hatley 
BUCKLANDS BEACH 

EDITORS REPLY 

All the cassettes produced by Grands- 
tand are recorded on both sides. It is ex- 
actly the same program on each side of 
the cassette, however, each side is 
recorded a slightly different level. 
This means that if your computer 
refuses to load on side one. then the dif- 
ferent levels on side two are more like- 
ly to allow you to load the program in- 
to your computer. 

Dear Editor 

The article "Program Dissection" in the 
September issue of "Sega Computer" 
is the most helpful we have read. We 
hope there will be many more such ar- 
ticles to follow. 

We look forward to receiving further 
issues of this magazine. 

F K Maynard 
Wellington 

Editors Reply 

Thanks for your kind comments. We 
plan to do many more such articles and 
some more articles on Dissection. 
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RULE BRITANNIA 



This program should appeal to all the British patriachs. Lines 10-100 draw the British flag and lines 110-200 play Rule 

Britannia 




10 SCREEN2, 1:CLS: COLOR 15, 15, (0,0) -(2^5, 191J , 15:SCREEN2,2 

20 LINE (10, 10) -(245. iBl ) , 8, B: L INE ( 10, H?) - ( 122, 9^?) , ,B: LINE (245, 10) - ( 133, 90) , , B: LI 
NE(245, iai)-(133. 101) , ,B:LINE(10, 181)-(122, 101 ) , ,B 

30 LINEdlS, ID- (115,65) ,4: LINE- (35, 1 1 ) : LINE ( 1 40, 1 1 ) - ( 1 40, 65) : LINE- (220, 11 ) :LINE 
(140, ISO) -(140. 126) .-LINE- (220, 180) : L I NE ( 1 15 . 180) - ( 1 1 5 . 1 26 ) : LINE- (35, ISO) 
40 LINE(11,B1)-(B2,81) : LINE- ( 1 1 , 28) : LINE (244, 81 > - ( 173, 81 ) : LI NE- ( 244, 28) : LINE (244 
, 110) -(173, 110) : LINE- < 244. 165) : L INE ( 1 1 , 1 10 ) - ( 82, 1 1 O) :LINE-(1 1 , 165) 
50 LINEdl, ll)-(106,ai) ,8: LINE- (95,81) :LINE-(11, 19) 

60 LINE (244, 1 1 ) ~ ( 1 50 , B 1 ) : L I NE- (1 40, 81 ) : L I NE- ( 1 40, 75 ) : LINE- (230, 11 ) 
70 LINE (244. 180) - ( 150. 1 1 1 ) : LINE- (163, HI) : LINE- (244, 172) 
80 LINEdl, ISO) -(105. 110) : LINE- (115, 110) :LINE-(115, 116) : LINE- (26, IBO) 
90 PAINT (123, 11).8:PAINT(11,29),4:PAINT(36,11):PAINT<209, 1 1 ): PAINT (244, 29) : PAINT 
(244, 111) :PAINT(141. 127) :PAINT(113, 128) :PAINT (11, 111) 
iOO PAINT (12, 12) ,S: PAINT (240. 11) : PAINT (243, 1 79 ) : PAI NT C 1 8. 1 79 ) 
110 FaRJ=lT03:FORX=lT026:READCl,C2,C3,D:SDUNDl,Cl, 14:BDUND2,C2, 1 4 : S0UND3, C3 , 14:F 

0RDE=1T0D:NEXTDE, X : RESTORE 130: NEXT J 

120 SOUNDOiEND 

130 DATA523,31 1,208,50.30000. 30000,30000. 25,523, 31 1,208,25 

1 40 DAT A554 , 349 . 20B . 24 , 30000 , 30000 , 30000 , 1 , 554 , 349 , 208 , 24 , 30000 , 30000 , 30000 , 25 , 5 

23,349,220.25 

150 DATA554, 349, 117,25,523,349,220,25,466,349, 139,25,415,349, 147,25 

160 DATA392. 233, 156, 75, 30000, 30000, 30000, 25 

170 DATA622, 208, 131,50,554, 196, 117,50 

180 DATA523,3ir,20B, 12,415,311,208, 12,554,311, 117,12,466,311,117, 12,6^^,^08, 131, 

37,554.349,208,37 

190 DATA523, 3 11, 208,75,466,392, 156,75 

200 DATA415. 262, 208, 100, 30000, 30000, oOOOO, 25 



THE SCOWLING MAN 



BY SEGA 



The Japanese have some strange ideas when 
it comes to computer graphic demonstrations. 
They seem to have a fixation with faces. To 
them a computer is no good unless it can 
draw a decent face. As a result of this fixa- 
tion we have been sent a number of programs 
from Japan that produces faces. 

This program draws a Japanese man using 
lines, circles, painting and sprites. Note lines 
1 180 to 1520. These sections of the program 
cause the man to wink by redefining the sprite 
for the eye. 




10 SCREEN 2,2:CLS 
20 REM ** JAPANESE MAN ** 
30 RESTORE 940 
40 FaRL'=0TO96:READ A,B,C,D 
50 LINE <A,B)-<C,D) , 1 
60 NEXTL 

70 LINE(47, 120)-(47, 139 
80 CIRCLE(217, 110) ,5, 1, 
90 CIRCLE<161, 113), 60. 1 
100 CIRCLE(194,B5) ,27, 1 
110 CIRCLE(194,B5).27, 1 
120 CrRCLE(ia4, 140) ,23, 
130 CIRCLE(204, 17) , 17, 1 
140 CIRCLE £204, 17) , 17, 1 
130 CIRCLE(150, 176) ,25, 
160 CIRCLE(177,52) ,e, 1, 
170 CIRCLE(178,60) , 12, 1 
180 CIRCLE(93, 13) ,6, 1, I 
190 CIRCLE(169,30) ,61, 1 
200 CIRCLE(99,60) , IB, 1, 
210 CIRCLE (59, 160) ,84, 1 
220 CIRCLE(132,57) , 10, 1 
230 CIRCLE ( 136,89) , 11, 1 
240 CIRCLE(60,35) ,99, 1, 
250 CIRCLE (60, 35) ,99, 1, 
260 CIRCLE(149,B0) ,8, 1, 
270 CIRCLE(125,90) , 12, 1 



,2b LINE (38, 130)- (55, 130) ,2 

,0,0.4 

1,0.87,0.93 

1,0,0.09 

1,0.91,1 

, 1,0.04,0.25 

1,0,0. 17 

1,0.92, 1 

,1,0.65,0.85 

,0.65,0.83 

1,0.65,0.78 

0,0.5 

1,0.4,0.6 

,0.02,0. 165 

1,0.6,0.79 

1,0.65,0.88 

1,0.21,0.49 

,0,0.092 

,0.965, 1 

,0.33,0.6 

1,0.8,0.96 



280 

29e 

300 

310 

320 

330 

1 

340 

350 

360 

370 

390 

390 

400 

410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 

600 

610 

620 
630 
640 
650 
660 
670 
6B0 
690 

700 

710 
720 
730 
740 
750 
760 
770 
780 
790 
600 
G10 
820 
830 
840 
850 
860 
870 
880 
B90 
900 
910 
920 
930 
940 
31, 



CIRCLE (202, 104) , B, 1 , 1 , O, 5, 0. 75 

CIRCLE (47, 130) , 16, 10, 1,0.26,0.9 

CIRCLE (47, 130) , 10,2, 1,0.2,0.95 

CIRCLE (194, 125) ,57, 1, 1,0.495,0.57 

RESTORE 1 140: FaRD=0TO51: READ X, Y: CIRCLE CX , Y) ,3,4, 1 , 0, 1 , BF: NEXTD 

PAINT <90, 10) , 1:PAXNT (150,5) , 1;PAINT( 180,46) , 1 : PAINT (215, 46) , 1 : PAINT ( 172, 49) 

PAINT (50, 115) , 10: PAINT (80, 90) , 9: PAINT ( 160, 160) ,5 

PAINTt 180,65) , 1:PAINT{ 210,70) , I 

PAINT (175, 125) ,6: PAINT (50, 125) , 2: PAiriT (45, 135) ,2 



PATTERNS#0, 

PATTERNS#1, 

PATTERNS#2, 

PATTERNS#3, 

PATTERNS#4, 

PATTeRNS#5, 

PATTERNS#6, 

PATTERNS#7, 

PATTERNS#B, 

PATTERNS*?, 

PATTERNS#10 

PATTERNS#11 

PATTERNS* 12 

PATTERNS* 13 

PATTERNS* 14 

PATTERNS*15 

PATTERNS* 16 

PATTERNS* 17 

PATTERNSttlB 

PATTERNS*19 

PATTERNS*20 

PATTERNS*21 

PAT TERNS* 22 

PATTERNS*23 

PATTERNS*24 

PATTERNS*25 

PATTERNS*26 

PATTERNS*27 

PATTERNS#28 

PATTERNS*29 

PATTERNS*30 

PATTERNS*31 

PATTERNS*32 

PATTERNS*33 

PATTERNS*34 

PATTERNS*35 

PATTERNS*36 

PATTERNS*37 

PATTERNB*3e 

PATTERNS*39 

PATTERNS*40 

PATTERNS#41 

PATTERNS*42 

PATTERNS*43 

MAS I 

SPRITE0, (96 

SPRITEl, (92 

SPRITE2, (86 

SPRITE7, (80 

SPRITES, (74 

SPRITE9, (69 



0001010103030307" 

07070F0F0F1F1F3F" 

FEFEFEFCFCFCFCFC" 

FBF8FBF8F0F0F0F0" 

0103030307070F0F" 

0F1F1F3F3F3F7F7F" 

FFFFFFFFFEFEFEFE" 

FCFCFCFBFaFaF0F0 " 

0307070F0F1F1F3F" 

3F7F7F7FFFFFFFFF" 

" FFFFFEFEFEFCFCF8 " 

" F8F0F0F0E0E0C0C0 " 

■■07070F0F1F1F3F3F" 

" 7F7FFFFFFFFFFFFF " 

■' FFFFFEFEFCFCF8F8 " 

"F0F0F0E0E0C0C080" 

"07070F0F1F1F3F3F" 

"7F7FFFFFFFFFFFFF" 

"FFFFFEFEFCFCFBFS" 

"F0F0E0E0C0C080a0" 

'■0FOF1F1F3F3F7F7F" 

"FFFFFFFFFFFFFFFF" 

■■FEFEFCFCF8F8F0F0" 

" F0E0E0C0C0e08000 '■ 

" 0F0F 1 F 1F3F3F7F7F " 

"FFFFFFFFFFFFFFFF" 

■'FFFEFEFCFCF8F8F0" 

"F0E0E0C0C0808000" 

"0000010103030707" 

"0F0F1F1F3F3F7FFF" 
"FFFFFFFFFFFFFFFF" 
" FFFFFEFCFCF8FBF0 " 
" 0000E0FBFEFFFFFF " 
"FF3F0F0707030100" 
" 000000000OC0E0E0 " 
"C0C0C080B0000000" 
"00000080C0E0F0FC" 

"FFFFFFFF7F1F0702" 

■•0000000000000030 " 

•' F0E0C0C0C0B08000 ■' 
"3F7FFFFFFFFFFBFB" 
"FEFFFF7F3F3F1F0F" 

"0000000000000000" 
"0000000000000000" 



75) ,0, 1 

91), 4,1 

107) ,8, 1 

121) , 12, 1 

134) , 16, 1 

146) ,20, 1 
SPRITE10, (64, 156) ,24, 1 
SPRITEll, (56, 164), 28, 1 
SPRITE20, (49, 112) ,32, 10 
SPRITE21, (39, 132) ,36, 10 

SPRITE22, (31, 121) ,40, 10 ' 

REM ** LINE DATA *» 

DATA 85,0,87, 14,99, 14, 101,0,212,0,219,9,211,33, 199,31, 199,31, 174,22, 174,22, 1 
12 



950 DATA 
03,53 



211,33,216,43,217,43,213,44,213,44,209,50,209,50,205,53,205,53,203,53,2 



960 DATA 201,55,201,55,204,56,204,58,215,49,215,49,219.50,217,50,217,43,219,50,2 

19,55 

970 DATA 2 19, 55, 216,59,218, SB, 21 6, 65, 21 6, 66, 220, 75, 21 8,58,21 3, 63, 21 3, 63, 216, 65, 2 

13,63,211,64 

9B0 DATA 211,64,207,69,207,69,204,70,200,68,200,65 

990 DATA 216,69,208,74,216,90,222, HO, 196, 103,200, 103,200, 103,204, 107,216, 115,21 

6,122 

1000 DATA 216, 122,209, 133,209, 133,207, 145, 185, 163, 164, 155, 179, 160, 181, 169, 181, 16 

9 , 1 8 1 , 1 80 

1010 DATA 136, 155, 105, 180, 194, 59, 195, 55, 195,55, 194, 54, 194, 54, 192, 54, 192, 54, 188,5 



1020 DATA 188,52, 180,45, 172,46, 170,51, 178,48, 185,54, 185,54, 194,59, 193,75, 192,69 

1030 DATA 192,69, 191,7©, 191,70, 175,57, 175,57, 175,69, 175,69, 187,74, 187,74, 193,75 

1040 DATA 215, 119, 194, 120, 194, 120, 171 , 125, 171 , 125, 174, 129, 174, 128, 194, 120, 194, 12 

0,213, 121 

1050 DATA 213, 121,214, 119, 191,74, 179,69, 148, 142, 137, 127, 141,96, 139, 100, 125,90, 12 

2,75 

1060 DATA 122,75, 122,57,122,57, 125,50, 139,50, 144,54,144,54, 147,59, 147,59,143,75 

1070 DATA 122,75, 117,62, 117,62, 111,48, 110,75, 103,76, 103,76, 100,72, 100,72,91,75,9 

1,75,76,78,76,78,70, 100 

1080 DATA 70, 100,28, 179, 103,76,90, 110,90, 110,56, 179, 110,75, 104, lOO, 104, lOO, 91 , 13 

0,91, 130,67, 179 

1090 DATA 143,60, 142,61, 142, 61 , 138, 59, 138, 59, 135, 54, 135,54, 133, 54, 133, 54, 130, 58 

1100 DATA 130,58, 128,61, 128,61, 127,70, 129,66, 130,62, 130,62, 133,60, 133,60, 136,60, 

139,63, 134,63 

1110 DATA 134,63, 132,66, 132,66, 131,69, 131,69, 131,73, 131,73, 134,77,0, 180, 180, 190 

1120 DATA 47,120,47,139,38,130,55,130 

1130 REM *# CIRCLE DATA ** 

1140 DATA 67,84,59,84,51,94,43,84,35,84,67,92,59,92,51,92,43,92,35,92,27,92, 19,9 

2,59, 100,51, 100,43, 100,35, 100,27, lOO 

1150 DATA 19, 100, 11, 100,59, 108,51, 108,43, 108,35, 108, 27, 108, 19, 10B, 1 1 , lOS, 27, 1 16, 

19, 116, 11, 116 

1160 DATA 27, 124, 19, 124, 11, 124,27, 132, 19, 132, 11, 132,27, 140, 19, 140, 11, 140,35, 148, 

27, 148 

1170 DATA 19, 148, 11, 149,35, 156,27, 156, 19, 156, 11, 156,27, 164, 19, 164, 11, 164, 19, 172, 

11, 172,27, 172 

1180 REM «* PATTERN DATA ** 



1190 PATTERNS#129 
1200 PATTERNS#129 
1210 PATTERNS#130 
1220 PATTERNS»131 
1230 PATTERNS#132 
1240 PATTERNS#133 
1250 PATTERNS#134 
1260 PATTERNS#135 
1270 MABl 
1280 SPRITE3, (175 
1290 SPRITE4, (183 
1300 PATTERNS*H29 
1310 PATTERNS#129 
1320 PATTERNS*H30 
1330 PATTERNS#131 
1340 PATTERNS#132 
1350 PATTERNS#133 
1360 PATTERNS#134 
1370 PATTERNS#135 
1380 PATTERNS#136 
1390 PATTERNS«137 
1400 PATTERNS#138 
1410 PATTERNS#139 
1420 PATTERNStH40 
1430 PATTERNS»141 
1440 PATTERNS*142 
1450 PATTERNS#143 
1460 MAGI 
1470 SPRITE3, f 175 
1480 SPRITE4, (183 
1490 SPRITES, (205 
1500 SPRITE6, (205 
1510 FORW-=0TOSO0:NEXTW 
1520 GOTD1190 



'■0090C0F0F8FCFEE0" 
■' C0COCFDFFF7F0F03 " 
"0OOO0OOOO000O0C0" 
••201904C2E1FOFOF9" 
" 20 1 B04C2E 1 FOF0F9 " 

"FF1F01 0000000000" 
"000000O0A0E0E0E0" 
" E0E0E0000O0O0O0O " 



57) , 128, 13 

65) , 132, 13 

'■ 80COEOF8FCFEE0C0 " 

"C0CFDFE3F97E0F03" 

" (5000000000000000 " 

■'0000C0E0Fe7081Fl " 

" 00OOC0EOF070B 1 F 1 " 

" FF 1 F0 1 0000000000 " 

" 000O00OO0OAOEOEO " 

■■ E0E0E00000000000 " 
" 0000000000000000" 
■• 0000000 1 0303C24 1 ■' 
'■00O0040C1C387838" 
"191 0DOB0B97OE0C0 " 
" 0000000 1 O303C24 1 " 
" 33 1 E 1 80000000000 " 
" 181OD0BOB870E0C0" 
" 0000000000000000 " 

57) , 128, 13 
65) , 132, 13 
56) , 136, 13 
64) , 140, 13 



CONTACT PAGE 



By now there are over 6000 Sega 
owners in New Zealand. Unfortunate- 
ly most of these good people don't 
know that the others exist, so this page 
is a new regular feature to bring Sega 
owners out of the closet and into the 
open. 

If you wish to have your name, address 
and a contact phone number listed, just 

write to: 

Sega Users Club 
CPO Box 2353 
AUCKLAND 

with the relevant information. 



SOFTWARE REVIEW 



ORGUS 




All you Scrambler and Defender fans 
out there, this is the game for you- 
Horizontal scrolling and excellent 
graphics make this an addictiue game. 

With 3 different stages and a giant 
enemy base at the end that you must 
destroy makes this an exciting game. 

You start as a robot (orgus) and can fire 
at the UFO, and kick the ground bases. 
You can also transform Into the "Flyer" 
to gain speed, but you must be very 
careful as all the enemies bullets can 
destroy you. 

MATHS HANG UP 

A delightful educational maths pro- 
gram based on the popular word game 
hang man. You must first select addi- 
tion, subtraction, multiplication, division 
or a mixture of everything, and then the 
level, from beginner to senior. Its then 
a race against time to answer the ques- 
tions before your time runs out. If you 
are incorrect, or your time runs out the 
gallows is assembled and you are even- 
tually hung. A fast paced eductaional 
game that will keep you on your toes 
and improve mental arithmetic. A rating 
is given at the end of each round and 
you can keep track of your progress as 
you move into harder levels. A must for 
the mental arithmetic. 




PYRAMID 

This is another adventure game by D 
Van Kan (of Death Satellite fame) . The 
idea of the game is to find the wooden 
staff which is a priceless artifact. There 
are many endless tunnels to get lost in 
and places in which to die! 

The program cleverly redefines the 
screen text so that it looks like an an- 
cient Egyptian script. 



BACKGAMMON 
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SAFARI RACER 




I am hooked on this one and so will you 
be. If you have ever seen Pole Position 
or Turbo in the arcades, well you will 
know this game. 3D racing car action 
driving something James Bond drives 
during the weekend, you can speed up 

to 300km/h. There is no speed limit, 
but watch out for the curves. You also 
have wild animals such as rhinos, lions, 
and elephants and leopards to contend 
with. Unfortunately all of these 
creatures have suicidal tendencies (or 
they have not learn't the road code). 
Dangerous boulders also litter the road. 
Every so often you must stop and refuel 
at the petrol pumps on the side of the 
road. If you do not your car runs out 
of gas and you have to walk home. The 
graphics and sound on this game would 
rival most arcade games. I am certain- 
ly going to be a buyer of this Sega game! 
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A must for all backgammon fans. 
Either play another person on the 
screen or match your wits against the 
computer, that is if you like losing. 



GEOGRAPHY 
QUIZ I & II 

BY IAN NICHOLSON 

The graphics for these two programs 
have been on lan's 1st Programme the 
Sega Graphic Designer. The pro- 
gramme produces a detailed map of an 
area of the world and you are asked to 
identify a city or geographical landmark 
at a certain position on the map. This 
is not nearly as easy as it sounds as you 
have to play a game of hangman at the 
same time. If you make 6 unsuccessful 
guesses you get hung! 




The programme is written in Machine 
Code so it draws the maps very rapid- 
ly. Your geography can be tested on 
any one of the following areas: 

North island N.Z. North America 
South Island N.Z. South America 
Australia and the Pacific Region 
The British Isles 



SOFTWARE REVIEW 



CODE BREAKER 




Remember good old mastermind? Well 
its now available for the Sega. The 
game has 4 different levels of difficulty 
making it quite hard to work out the 6 
colour combination. A good solid 
challenging game. 



THE HOUSE 

BY MICHAEL HOWARD 

This is the Sega Graphic adventure 
game (and what great graphics!) 




The object of the game is that you, Sid- 
dy Superspook, have to kill Vanessa 
the Vampire, but to do this you must 
find a crucifix, and find Vanessa. Un- 
fortunately as there is an international 
shortage of crucifixes, there is only 1 in 
"The House," but you are given an oc- 
casional clue to tell you where its lying. 

The game is made even harder as there 
are also horrible monsters in "The 
House." These are called purple peo- 
ple eaters, and have 8 tenticles, and 
tend to be very nasty! It's part of your 
job to kill the PPE'S (unless they kill 
you!!!) 
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As you go from room to room sear- 
ching for the crucifix, you may also 
come across chests of treasure and 
healing potions which help you regain 
your strength after battle with the 
PPE'S, 

This game makes full use of the 
SC3000's arcade quality graphic and 
sound, and as the program is written in 
Machine Code it is very fast moving 
with smooth graphic movement. 




TRAMPMAN 

A highly original graphic game with full 
colour and sound. You control one of 
the legendary and lovable Binklehops 
of Bolthazar which you must 
manoeuvre, first through a lazer field 
and then bounce your way through a 
swarm of Bumble Bees by using 
eratically placed trampolines. You must 
then shoot another swarm of Bees and 
climb to safety- There are 5 more pro- 
gressively difficult screens, and points 
arc awarded as you move through the 




screen and bonus points on completion. 
You have three lives and gain one on 
level completion. Features include title 
page, high score, and full sound effects. 
Joystick only. From the author of Mars 
Mobile. 



BOXING 

I have played a few boxing games on 
computers but this beats all. It is in- 
credibly realistic with brilliant animation 
and crowds roaring in the background. 

You have to see this game in action to 
believe It. 

It has 5 different levels and a two player 

aption for a good slog out with a mate!! 




You can throw a jab. use an uppercut 
or the good old straight punch to wittle 
your opponent down and knock him 
out. [The crowd goes wild) and the 
player that is knocked out gets a black 
eye!) Each round lasts IV2 minutes and 
it requires a lot of skill to be still stan- 
ding after 10 rounds. 

All in all an excellent game. Well worth 
the money. 

FLICKY 

Flicky is a little blue duck who has to 
gather up ducklings and take them to 
safety at her "nest." Saucers, mugs, 
teacups, kettles. Gathering up guns and 
other objects and keeping hold of 8 
ducklings is hard enough but Flicky has 
to contend with dreadful cats. These 
cats do their best to kill Flicky but don't 
worry she can throw hammers at them. 




This game has 40 different screens with 
the best scrolling effects 1 have ever 
seen. It has many bonus screens and 
brilliant colourful graphics and arcade 
excellent sound. A very addictive and 
challenging game. 



REVIEW 
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LODE RUNNER 
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This is definitely my favourite game with 
80 screens of fast action. It is brilliant 
You even have the option of designing 
your own screens and saving on tape 
You can flip between screens at will and 
increase the number of lives you have! 

The idea of the game is to run around 
climbing ladders and ropes collecting 
the barrels. As the game progresses 
there are more and more barrels as well 
as death traps. You have to watch out 
for the guards as well but you can dig 
traps for them (being careful you do not 
fall in them yourself). 

This will be a top seller for sure. 



LUMBERJACK 




You play the part of a tired Lumberjack 
trying to make his way home late one 
night after a heavy session down at the 
pub with the boys. Dodging the logs is 
not as easy as you thought it would be, 
especially as the levels keep on chang- 
ing and getting harder. You start with 
three lives and gain one on completion 
of each level, and bonus points on com- 
pletion. Features include full sound ef- 
fects, title page and high score. Joystick 
only, A fun game that will keep you 
amused for hours. From the author of 
Mars Mobile. 



GRAPHIC 
DESIGNER 



Feedback from readers and users in- 
dicates that SEGA users are generally 
a lot more interested in using their com- 
puters for applications programs than 
originally anticipated by GRANDS- 
TAND. Those who masterminded the 
design are not too surprised many 
owners are quickly enticed into wanting 
to find out more about the machine and 
its capabilities — the designers all 
understand what appeals to a hacker, 
and the SEGA hardware and software 
is rich with nooks and crannies just 
waiting to be discovered. 

Programmers who start to write for the 
machine can fall into these enticing and 
carefully set traps, and may end up 
writing a complete 'symphony' when 
the original intention was simply to bash 
out a jaunty tune. One such victim is 
Ian Nicholson, Before getting stuck in- 
to some education design work, Ian 
thought he would run up a few utilities 
to make the development of the screens 
a little easier — amongst which is Sega 
Graphic Designer. What transpired is 
probably one of the most feature pack- 
ed and accomplished drawing and il- 
lustration program yet, devised for the 
Sega. 

The Graphic Designer is a machine 
code utility that provides all the tools 
you could possibly want to design a 
screen display for the SC3000. It also 
provides some you might never have 
thought of — but once discovered will 
become an integral part of the artist's 
equipment. 

At the time of writing, the finishing 
touches are being completed — and by 
the time you read this, the program is 
likely to be just available. 

The facilities available are: 

Colour set selection 

Pixel plotting in any colour 

Line drawing 

Circle drawing 

Area fill 



Text printing at any pixel location 
Plotting with the graphic character 
Complete erasing of last operation 
Save/ load screen and graphics 
characters 

In all. operation can seem daunting for 
the newcomer, however, intuition takes 
over fairly rapidly and you will only 
need to refer to the manual for the 
tricky bits. 

What all this adds up to is best illustrated 
by a picture or two. It is a shame we 
have not had the time to do anything 
more dramatic than those accompany- 
ing this piece — but it may inspire 
others to perform greater things — and 
it goes without saying that the best 
screens submitted each montfi will be 
published, and their originators will be 
rewarded in some suitable manner. 

That strange whirring noise you can 
hear is Leonardo Da Vinci spinning in 
his grave. The program operates by 
maintaining a dummy screen image in 
memory (not screen memory) so that 
'accidents' can be abandoned without 
doing any harm to the permanent im- 
age , The SEGA uses 16K for the screen 
display, which is why the loading screen 
for cassette based programs tend to be 
rather bland text-only affairs. However, 
with a disk drive loading a screen takes 
only a second or two, and with the 
Graphic Designer directly to the screen 
as required, and then uses these as the 
scenery for other programs and games. 
Imagine graphical adventures pulling in 
detailed screens as overlays from disk. 
The combination of a low cost disk 
system and the graphic precision of the 
SC3000 presents an unavoidable 
challenge to adventure publishers. 

Designer unleashes a lot of creative 
talent. Most of those who tried it here 
ended up spending more time design- 
ing screens than playing games. There 
may not be a high score table — but the 
satisfaction available is of a totally dif- 
ferent order. 



DISECTION 
Cavern Lander 



This is a simple but challenging game. The objective of the 
game is to get through the cavern avoiding the stalagmites. 
Every cavern is different: 

LINE 10 This creates the pattern for our space ship 
(see section on sprites in issue 2) . 
This sets the variables to S.G,L,Y & Y to 
0. 

This puts us on to the graphics screen. 
This changes the colour of our screen and 
border colour to blue and then clears the 
screen. 

By using the LINE BF statement we fill In 
the screen with colour 1 (BLACK). 
Sets G to a random number between 
and I. 

The a FOR NEXT loops for 1 and T when 
drawing up. V is also set to a random 
number. This is the length of the 
stalagmites. 

G which is the scope of the floor is added 
to 5 to give an increasing scope or climb 
to the cavern floor using the bline 
statement - 

This actually digs into our covered screen 
and carves a cavern in random pattern. 
Next T tells Sega to go through the loop 
25 times. 

Asks if G<0, if G is then, it sets G to a 
new negative number, so as to change 
the direction of the cavern. Floor slope - 
It has checked if G is already < 0. If it is 
not it bypasses 110 and sets G to a 
positive number ie change direction or 
cavern floor slope. 
Tell I to begin its loop. 
This is the beginning of our joystick loop. 
Checks to see if the joystick is moved and 
makes a sound. 

Says to GOTO 140 until we use the 
joystick. 

Sets the position variables for our craft 
(A = 5$AL0NG) ie change direction for 
cavern floor (B= 96 = DOWN). 

LINES 170. 

240 Corresponding to the directions of the 
joystick it will go to a line which moves 
our sprite in that direction. Then makes a 
rocket sound. 

Add .5 to Y so we have gravitational pull. 
270 adds X to A and Y to B so we have 
drift. 

Actually puts the sprite at location A by 
B. 

By using this VPEK you can check if you 
are hitting anything on the screen accept 



LINE 20 

LINE 30 
LINE 40 



LINE 50 
LINE 60 
LINE 70 



LINE 80 



LINE 90 
LINE 100 



LINE 110 



LINE 120 



LINE 130 
LINE 140 



LINE 150 



LINE 160 



LINE 250 
LINE 260 

LINE 280 

LINE 290 



sprites. If we are hitting something it will 

go to Line 320, which is our game over 

routine. 
LINE 300 Checks if A {our X axis location) is 

greater than 240. In other words if you 

have succeeded. 
LINE 310 Tells us to go to Line 160 which is the 

beginning of our joystick loop. 
LINES 320 

330 Makes a cracking sound when you have 

hit a wall. 
LINE 340 Turns the sound off. 
LINE 350 Puts on to the text screen and clears it. 
LINE 360 Prints up "you died", because you did. 
LINE 370 Another for-next loop which just stops 

things for a while. 
LINE 380 The beginning of the congratulations 

routines. 
LINE 390 Congratulates you! 
LINE 400 Prints up at the bottom of the screen, to 

press fire for another go. 
LINE 410 Checks if you are pressing your fire but- 
ton. If you are then GOTO 10 which 

starts again. 
LINE 420 Sets C to a random number and changes 

the colour accordingly. We then say keep 

changing until you press fire. 



10 PATTERNS#0,"e8lC3A7F7F2A110*" 

21,1 S='.i:G=W;L=0: J( = i.':¥=0 

30 SCREEN2.; 

40 C0LOR4.'»,,4!CL5 

!5e» LINE(C,C>-(25i^:m9I) , l.BF 

iO G-RNDl 1 )*l 

76 FaRl = !T01':ilFORT = lT023iL=L*-l[V=RND( !>*16 

BC C=RND(n»a:S-B-'G 

TO &LINE(L,96-S+24)-<L.96-V-S> 

100 NEKTT 

1 10 IFe.^aTHENG=RND(I) •H'-l : QOTOl 30 

120 G=BND<1 >*l 

110 NEXT I 

140 SOUNDI.T, ISi IFSTiCKd) .-eTHENlA© 

15f GOTO MO 

lAt' fl=5iB=96tSFRnE«, (fl.B) ,e, 13 

170 ONSTICl (li +IGOT026O. lea, 19», 200.216. 22ei.23ii), 240. 250 

180 SDUND3,<50il.f'i V=V-2:GaT0260 

170 S0UND3, 900.0: X = >! + 1 : V=y-l ;GDT02i.O 

200 SDUND3,300,0! X = ):*1[GOT0260 

210 5GUND3. 360,0] y: = X*l : Y^Y^l i GOT02i.O 

220 SOUNDS, 200,01 y-V*l tGDT02tO 

230 SOLIND3, 300, Oi X = )C- ! : Y=Vi-l : G0T02£,0 

240 S0UND3,300,0i X = i(-1 iGDTDZiO 

250 sound;, 90©, 0: X=X-]:V=V-l 

24.0 Y = V«.5 

270 fl=A+K 

2B0 B=B+V 

2Te 5FRITE0, <f\.B) 

300 IFVPEEK (INT ( tB+4l /BJ •256+INT ( (fl*4) /8) •B+BMODBl .'OTHENSSO 

310 IFfl>240THEN3'?0 

3S0 G0TDI70 

330 FGRI=500T0110!SOJND3, 1,5 

340 SDLIND4,3, ISjNEKT 

350 SGUNDO 

360 SCREENl. 1 ! CLS 

370 PRINT" VDU DIED" 

390 FDRI=lTaiO0O:NE«TljG0TO41O 

390 SCREENl . i:CLS 

400 PRINT-CQNGRATULflTIQNS VOU MADE IT «LWE 

410 CURSDR0.20!FRINT" PREGS FIRE TO START AGAIN" 

420 IFSTRlG(l) -OTHENIO 

430 C=KNDll)»16:CDLQRCiGQT0410 
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SPRITE MOVER 



BY JOHN DAVIS 



This program automatically moves all sprites according to 
the information held in the movement table, (in the exam- 
ple this is positioned at &HAlj90, although this can be mov- 
ed by changing the relevant line) . The routine itself has been 
written so as to be position independent, and can therefore 
be loaded anywhere in R.A.M. 

To use, load the machine code, set up the movement table. 
(SEE NOTE) . set up the sprites on the screen, and then each 
time you want the sprites to move, CALL the start address. 
(The more often, the better} 



SPRITE MOVEMENT TABLE: this is a block of memory 
(&H80 bytes) . refened to by the routine and which specifies 
how each of the 32 sprites move. 

The table is made up of 32 blocks (one per sprite), each of 
four bytes. 

Each block is in the form:- 

RATE; 1-255 specifies how often the sprite will move. 
{l=fasi to 255 = slow) 

COUNTER; this is used within the routine, and should in- 
itially be set to one. 

Y; specifies how far the sprite will move in the y-dimension 
each time. (This is in two's complement form, i.e. 0-127 will 
give a positive movement while 128-255 will give a negative) 
X; as for Y but in the X-direction. 



11.04,00 LD DE.&H0004 

21.00, 3B LD HL.&H3B00 
DD,21,00,A1 LD 1X,&HA100 



;start of movement table, 
change as necessary 



0E.D0 


LD C,&HD0 




^,20 


LD B,&H20 




F3 


DI 




DD,35,01DEC(lX-(-l) 


idecrement counter 


20.28 


JRNZ &H28 


;move sprite if 
counter = 


DD,7E,00 


LD A,(IX-t-0) 




DD, 77,01 


LD (IX + 1).A 


;reset counter 


CD,32.2C 


CALL &H2C32 


;move in y dimension 


DB.BE 


IN &HBE.A 




DD,86,02 


ADD A,{IX + 2) 




B9 


CP A.C 


;correct for jitter when 
y = &HD0 


20,03 


JRNZ &H03 




DD. 86,02 


ADD A, (IX + 2) 




CD,44,2C 


CALL &H2C44 




D3,BE 


OUT ScHBE.A 




23 


INC HL 




CD.32,2C 


CALL &H2C32 


;move in x dimension 


DB.BE 


IN &HBE,A 




DD, 86,03 


ADD A,(IX + 3) 




CD,44,2C 


CALL &H2C44 




D3,BE 


OUT &HBE.A 




2B 


DEC HL 




19 


ADD HL.DE 


;move to next sprite 


DD,19 


ADD IX.DE 


;move to next block 


10,CE 


DJNZ &HCE 


;repeat X32 


C9 


RET 





Iti DATA 11,04,00,21,00,38,00,21,00, A1,0E, DO, 06,20, F3,DD, 35, 01, 20,28, DD,7E, 00, DD, 

77.O1,CD,32,2C,DB,BE,DD,86,O2,&9,20,03,DD,S6,O2.CD,44,2C,D3.BE,23,CD,32,2C,DB,BE 

,DD,S6.03.CD,44,2C.D3,BE,2B, 1 9, DD. 1 9, 10, CE , C9 

20 REM SET UP MACHINE CODE AT R^HAOOO 

30 RESTORE lOiFDR A = ?/HAO0O TO .?-HA04 1 : READ A* : POKE A, VAL ( "?'H"+A$ ) : NEXT 

40 REM SET UP MOVEMENT TABLE AT S'.HFIOO 

50 FOR A = ?<HA100 ID ?'HA180 STEP 4 

60 POKE A+0, H-INT(5*RND<1) ) :REM RATE OF MOVEMENT 

70 POKE A+1,1:REM COUNTER 

80 POKE A-f-2, <253+INT(10*-RND(l) ) >MOD 256: REM Y 

90 POKE A-i-3, (253-HNT(10*RND<l) ) )MOD 256: REM X 

100 NEXT 

110 REM SET UP SPRITES 

120 SCREEN 2,2:C0L0R1, 14, , 15:MAG OrPATTERN S#0, "FF81Q1818181 BIFF" 

130 FOR S=0 TO 31 

140 SPRITE S, (120,90) ,0, INT (16*RND(1) > 

150 NEXT 

160 REM MOVE SPRITES 

170 CALL ?.HAO00:GOTD 170 

180 END 
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Graphics and Trigonometry 



by Michael Howard 



From the Wow-This-Micro-Has- 
Briiliant-Graphics Department comes 
an army of short programs for creating 
silly patterns- They all contain one ele- 
ment in common, they use cosine, sin, 
and tangent (Don't shout "Boo-hiss!"). 
If you want better coverage of COS. 
SIN and TAN then read pp. 125-128 
of the operators manual. 

A lot of people think that 
trigonometry is difficult, well it's not, 
and hopefully these small programs will 
help put matters straight! fTrigonometry 
is the use of COS, SIN and TAN, it pro- 
bably has Greek origins and probably 
means boring!) (Acutally it is Greek and 
Tri means 3 sides of a triangle, a triangle 
is the basis of the science) - Well enough 
of this, let's get on with the programs. 



Program 1 

10 SCREEN 2,2:CLS5FSET(128.8BJ .S 
20 F0RA=eT0359STEP2 

30 x=siN(A/pn : Y=!::as(fl/pi ) 

40 X=X*X«Y»PI : Y=Y*Y*XftPI 

50 LINE-C 128+ (X»45> ,BB+ (Y*45) ) 

60 NEXTA 

Prog. 1 creates a sort of wonky figure 
of eight in an unusual manner. The 
main work is done in line 30, generally 
where there's a SIN, there's a COS! 
And 9 times our of 10 there's a PI 

(PI = 3. 1415926536 ) You may 

be wondering why in line 30 A is divid- 
ed by PI- Well the reason is straightfor- 
ward. Computers don't work in degrees 
(e.g.. 90". 127") they work in radians 
(Another silly measurement that keeps 
mathematicians happy!). By dividing PI, 
radians are created from degrees (This 
is only rough, but it works!). Also 
another thing that is necessary to know, 
is that when using SIN and COS. no 
matter what number is used (e.g.. SIN 
(23), COS(-42) etc) the result is always 
in the range -1 to 1. So the result must 
be multiplied by a fairly large number 
so that the function can be represented 
on a graph, this is what happens in line 
50. 

Program 2 

10 SCREEN 2,2;CLS 

20 DP=2*PI/1B3:XI-12B:YI=96!RA=90 

30 F0RP=eTO2*PISTEPDP 

4Ci X=Rfl*COS{P) ! Y=Rfi*SIN<P) 

50 X=XI + X: Y=YI+-Y 

60 LINE<12B.96)-<X,Y),8 

70 NEKTP 

Prog. 2 creates a circle with many radii 
thus form a "dazzling" effect. You may 
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have noticed that the main loop (started 
in line 30) has a PI in it. Why? Well look 
at line 40 notice the COS and SIN, 
there is no PI in that! The effect of this 
is that P is already in radians! (If you 
haven't already guessed radians are ex- 
pressed in terms of PI, unlike degrees 
which are in terms of 10), RA is the 
radius of the circle. XI and YI the cen- 
tre and DP the distance between points 
on the circumference (in radians]. 

Program 3 

le SCREEN 2,2:0.3 

2e F0RK=-lO9T0ieeSTEPr 

5t» FDRV=VTO-WSTEP-R 

60 Z'1NTI80*30»S1N( lSaR<X»X*V»y) )/lZ)-.7.Vl 

70 IFZ-JTHEN"?* 

SO J«ZiPSETC128*X,191-I-15)lK=e 

9& NEXTV.K 

Prog. 3 produces a 3D graph, which 
looks quite spectacular! The only pro- 
blem is it takes about 5 minutes to 
create! The crux of the program is line 
60, doesn't it look awful?! I'm not go- 
ing to explain how it works because it 
is quite complicated!, and I'd only get 
muddled up explaining it! 

Program 4 

1 y H= 1 ijw: L=2ia; B= 1 5 ! AR=-45: AL=45: S=5 

21J SCREEN 2,2:CLS 

30 FORA=AL10ARSTEP-S 

40 F=Pl/18ei 

50 >; (1 )=i3i;i-H*TANm*F) 

60 Y ( 1 ) =H 

70 X (2>=X [ 1 1 + lL*COS(fi*Fn 

BO V(2) =Yf 1) ♦tL»SIN!fi*F) ) 

90 X <1)=X (1 J + (B*CGSt (90+A)*F) ) 

100 Y(4)=YU >* !B*SIN( (90+A)*F) ) 

!10 X (3)=X W> + IX<2J -X (in 

120 V(T)=Y(4)+(Y(2) -Y( 1) ) 

110 PSETtX (1) ,Y<1> ) ,8:FaRl=2TD4: 

LINE-tX (I) .Yd) ) sNEXTi 

LINE-(X C]} . Y CI) ) 
110 NEXTA 

Prog. 4 forms a box or rectangle which 
moves across the screen slowly revolv- 
ing. Line 50 determines the path along 
the screen . You can alter the TAN func- 
tion with COS or SIN , To do so line 10 
must be altered. 

Viz: 

10 H=lM'^'':L=2t'! B=15: AR^-iaO: AL=18t':S=5 
50 X Cl) = 17-e-H«C0S(A»F) 
50 X<l)=13a-H»S1MIA»F) 

L is the length of the box. B the 
breadth, AR it's finished angle. AL its 
starting angle and 5 the step. Try alter- 
ing them. Also instead of a box, alter 
line 130 to 

130 PSET(X (l).Y(l) ) .BiFDRI=3T04!LINE- 
(X (I) .Yd) ) tNEXT:LINE-(X(l) .V<1)) 

to get triangles! 



Program 5 

IW SCREEN ;.riCL& 

yt FOB TH-oroB'Ft STEP P!.»B 

la B-TM/5 

3» l-B-CDEITHl iV.Fr.SINilHI i ll»I.5l V.*«5l I-Ol^Sl r-VOi 

66 LCNE-U, VI 

in WFIT IH 

Prog. 5 forms an ever increasing spiral. 
If you're interested try altering line 40 
and 30 e.g., 

:ie FOB TH-eroit.pi step pi/*e 

would make the spiral larger. 

would alter the distance between 

spirals. 
Another alteration which makes 
"flowers" is: 

Ml FW IH-eT02«PI SlEP P[/1»0 

»« I!-1>CDS(9»1HI 

30 1-B-CDSl'Hj iV-R-SLHl IH^ il-J.^Bi V-V»3Sl ll-<- IJBl V-V-»6 

Try altering line 30 and 40 e.g., 

3*1 FDR TH"erD2»Pi STEP pwa»o 
Av F,= i»cosii::*THi 

The reason for the step change is that 
it makes the "flower" smoother, and 
line 40 creates more "petals." 

Program 6 

111 SCREEN 2,7!CLS!PSET(l2.9il .a 
2e FORJ.PTDPI'SISTEPPI/S 

40 Y-S]fJllli«EXP(-)l/l*liY"Y-10ii!V-V-''4 
30 LINE- I 1I*3'*12,H 
bf- 'UEJIT I 

Prog. 6 draws a "damped sin wave," 
the damping is created by the EXP 
function in line 40 try altering 40 to in- 
crease or decrease the damping 

40 /sSlNOll'EXPI-X/ie) 1 V"Y»ie0iV"V+9<i 

Program 7 

IC SCREEN 1'.2iClS:PSET l2]B,''6i .B 
2(1 F0S:;"6TQ2«»P1 STEP Pl/1» 
je i=COSi:l/iO>i K^I'^e: <->;*I28 
40 V=51NIZ) 1 v=Y»SP: V=v*''fa 
50 LINE-<X. VI 

f>fi NE'ir 

Prog . 7 is hard to explain , so just run it! 
Program 8 

10 SCREEN 2.2iCLSjPSETc20:."»6MV=9 
2y FOR Z=0 TO P[«2 STEP Pl'lO 

jO '■", i2S"Cosiv«ii I ■-.'•5'>'i>ix»i-i;a 

4fJ V". l2a«SlN(V«ZI 1 V"Y«59t>I Viy+'Jii 
5(1 L1NE-1X,Y1 
bii ME IT 2 

Prog. 8 creates multi pointed stars. Try 
different values of V e.g., 

Also try the following: 

2(t FORI=eTO Pl»4 STEP Pl'lO 

and 



2v"i FDRZ"it'Ta Pl*e STEP Pl/IB 

y-S.S OR v-3, 5 OR V=B.5 0« V'b.^ 

y=B.3S OR V'4.25 OR V-ltl.2S Oft V-5. 25 OR V-9,25 



Oh well folks, that's the lot! I hope that 
you try some of your own little ex- 
periemenls and have realised that 
h"igonometry is not really that awful! 




You are in control of a Balloon that you 
must guide across the rugged terrain of 
the 6 different levels in the game. 
However, you must be very careful as 
should your Baiune" (this is how the 
Japanese spell (?) Balloon) touch a wall 
it will burst. You have 3 balloons, use 
the cursor arrows to move the swing- 
ing balloon. This is rather a long pro- 
gram. Most of this is actually the 6 dif- 
ferent screens (Lines 1000-2 13ja), If you 
wish to leave any of the screens out to 
make the program quicker to type it just 
change line 90 so that the GOSUB is 
followed by as many parameters as you 
have typed in screens e.g. 4 screens 
(Lines 1000-1730). 

90 ON RU GOSUB 1000. 1200, 1400, 
1600 



10 SCREEN2,2:CaLDR, 1 . , 1:CLS 

26 PRINTCHR*(17) : G0SUB600: HI=5O0: &=3; RU=1 : BC=0:F=1 : FF=1 

3G CaLQRlS:CURS0R35. 160:PRINT"GAnE PLAY A V/N?" 

4e AS-INKEY*: IFA4="VTHEN70 

SO 1FA»="N"THENCLS:END 

60 GOTO 30 

70 PRINTCHR*(:6) :SCREEN1, 1:CLS: COLOR, 1 : GaSUE(240i TIME«="C'0: t»0: 0*>" 

75 REM FATAREN PRINT 

90 ON RU 6DSUB K'Cfe', 1 200, 1400, 1600, IBGG, 2000 

100 CURSDR30, IjPRINT" HI-SC"; 

101 CURSOR30,2:FRINTHI 

102 CUftSDR30,5:PRINT" SCORE" 

103 CURBOR30,6:FRINTSC 

104 CURS0R31. 13:PRINT"LEVEL" 

105 CURS0R32, 15:PRINTRU 

106 CURSDR31.Z0:PRINT"BALUNE" 

107 CURS0R32,22:PRINTB 
110 REM MAIN LOOP 

120 G0SUB232 

130 A*=INKEYS: IFA«=CHR* < 28) DRA*=CHR* < 29) aRA»=CHR* <303 ORAt=CHR« (31 ) THENA=ASC ( A*> -27: 3010200 

150 M=ri+E: IFM=30RM=1THENE=-E 

160 IFVPEEKCAD+VtM) ) : :.-32THEN3O0 

170 VPOKEAD-t-V<M> . AA<0,M) : VPOKEAD+40. AA (1 , M) 

1.80 yPOKEAD+V (M) , 32 

1 B5 I F 1 5523< ADANDAD< 1 5532THEN400 

1 87 I F5 C ftUANDRU9THENONRU-5GOSUB400O . 4 1 00 . 4200 . 4300 

190 A=0:GOTO 130 

200 VPOKEAD-t-40,32:X = X-t-X(A) ; V = y+y(A) : GOSUB230 

210 IFVPEEK<AD+40K>32THENX = X-X (A) : Y=Y-y (A) j GO5UB230 

220 BEEPl:BEEPO;eOTO150 

225 REM SABU 

230 AD=Y*40-»-X+?'H3C00: RETURN 

232 X=28: Y=2 1 : G0SUB23y : M= 1 : E= 1 : RETURN 

234 FORI=0Ta700:NEXT:RETURN 

240 RESTORE9O0:FOR1 = 1TO4:READAA(0. I ) , AA < 1 , I ) . X ( I) , Y ( I ) , V < I ) 

250 DATA235, MB, 1 ,0,-! ,235. 128, -1,0,0.235, 147, 0. -1 , 1 , 0, 0, 0, 1 , 

260 PR«(1)=" GREAT' '! ":PR4<2)-"VERV GOOD" : PR« ( 3) ="0000' LUCK ' " : PR* ■: 4) ="GDOD WORK' " 

270 PR*(5)^"ARE YOU OK"^" : PR* (6) ="DON- TDIE NOW" : PR* (7) =" YOU' RE DOING WELL ! " : PR* (8) ="NOW TRY THE 

290 PATTERNC#42, "FFFFFFFFFFFFFFOO" : NEXT: RETURN 

300 RESTORE910:REM EXPLOSION 

310 FORI=0TO1:READP:SOUND5.2.7:3OUND1.P, 15: NEXT: SDUNDO 

320 &=B-1: IFB=0THENCOLOR1, 15:CURSDR5, 1 2: PRINT GAME OVER" : 60SUB234: GOTO 10 

330 GOTO70 

390 REM SCRORE BC 

400 VPOK.EAD+V(M) , 32; VPOKEAD-t-40. 32 

410 VPOKEAD-40, AA(0,2) : VPOk.EAD, AA ( 1 . 2) 

420 SC=SC-t-lO00-(VAL!MIDt(TIME*.5, 1) ) »100+VAL (MID* (TIME*, 7. 2) )*5) 

430 RU=RU+1: IFSC.>HITHENHI=BC 

440 RESTORE470:FORI=OTO3:READS 

450 FDRU=0TO5: SOUND l.B, 15: NEXT: SOUNDO: NEX T 

60SUB234:CLS:C0LaR15:CURS0R5, 13: PRINTPR* (RU) 

GDBUB234 



NEXT ONE" 



455 
456 
460 
465 



iO€'0THENB=B+l 



IFAB=OTHENIFSC 

GO TO 70 

470 DATA 131,139,147,165 

600 PATTERNSttO. "070F 1F3F3F3F3F3F" 

610 PATTERNS#1 , 'VFT-Fl F0F0FOFO300" 

620 PATT£RNStt2, "C0E8F8F8F8FBFBFB" 

630 PATTERNB#3. "F8F0F0E0E0C0OOOO" 

640 PATTERNB»4, ■'2040800000000000" 

650 MAGI: Z=2: ZZ=2: W=0: AA*='-BALUNE" 

660 FOR I=30TO230 STEP40 

665 VV=VV+1 

670 F0RY=OTO7 

675 BLINE ( I+Z+5.95) - < 1+5. 104) 

680 Z=Z+ZZ! IFZ=OORZ=aTHENZZ=-ZZ 

690 SPRITE 3, ( I-^Z,80) ,0. 6 

695 SPRITE 2, <I+Z+6,90) ,4, 15 

697 LINE(I^■Z-^5,95)- 1 1-+-5, 104) , 15 

700 NEXT:BLINE(I + Z+5,95)-<I+5,104) : CURSORI t-3. 85: PRINTMI D« ( AA*. VV. 1) : NEXT: SPRITE3, (1,80) ,0.0: RETURN 

900 DATA235. 148, 1,0,-1,235, 128,-1 ,0,0,235, 147,0.-1, 1.0,0,0, 1,0 

13 



9ie DftTA120. Ii06 

1000 CLS:C0L0R2 

1010 PR I NT ■■*»**********»*************-<•***" 



#** 



1015 PRINT"* 

1020 PRINT'-* GOAL 

1025 PRINT"** 

1030 PRINT"** 

1035 PRINT "*»•»*» 

1040 PRINT "*•*»**»* 

1045 PRINT"********* 

1050 PRINT"******** 

1055 PRINT"***** 

1060 PRINT"*** 

1065 PRINT"** 

1070 PRINT"* 

107S PRINT"** 

lOeO PRINT"* 

10B5 PRINT"** 

1090 PRINT"*** 

1095 PRINT"***** 

1 100 PRINT"***** 

1105 PRINT"**** 

1 110 PRINT"** 

1115 PRINT"*** 

1 120 PRINT"**** 



**»*♦**»****♦■*******" 

♦* **************" 

** •** »****-****" 

**********" 

*«*****" 

***»***»" 

********»" 

****#*****" 

»****•" 

*" 

*** *" 

*** *" 

*» »" 

**" 

##♦" 

*■»»■■♦♦*■■»♦*" 

♦ **■»«*****" 

********»" 

«-*««*******«" 

»*" 

**" 



*»*** 
*** 
***** 
****** 
*«-« 
« *** 
* *** 
*** 



** 
*•** 



******** th**** **" 

1 125 PRINT" *#*************♦****♦*********": 
1130 RETURN 
1200 CLS:C0L0R2 
1210 PRINT"******************************" 



1215 PRINT"* 
1220 PRINT"* GOAL 



«-««*««*****»*****«**" 
♦***•♦♦********♦***♦" 



1225 


PRINT' 


' * 




******** 


• *** " 


1230 


PRINT' 


'** 




****** 


***" 


1235 


PRINT' 


' ** 


* 


»•*♦** 


*♦ 


***" 


1240 


PRINT' 


'* 


**• 


******** 


*«* 


***" 


1245 


PRINT- 


'* 


** 


****** 


** 


***" 


1250 


PRINT' 


'** 




****** 


** 


***" 


1255 


PRINT' 


'**• 




*** 


*** 


**" 


1260 


PRINT' 


■**» 






■•** 


**" 


1265 


PRINT' 


'«*»** 




»* 


**" 


1270 


PRINT' 


■•»******* 


****** 


**" 


1275 


PRINT' 


'»****#****••♦•••♦****»* 


**" 


1280 


PRINT- 


'»**# ******* 


**-•* 


*#■■ 


1285 


PRINT' 


'»* 




*»*« 


*** 


**" 


1290 


PRINT- 


' * 




«#« 


* 


♦ *■' 


1295 


PRINT' 


' * 


*»* 


*** 


*** ** 


«*" 


1300 


PRINT' 


'* 


♦ *** 




**** 


** " 


1305 


PRINT- 


'* 


*«*« 




***** 


**" 


1310 


PRINT' 


'* 


*»**»******♦***♦***♦■»*****" 


1315 


PRINT- 


'* 








*■■ 


1320 


PRINT' 


'* 








*" 



1325 PR I NT "****************«*« **♦********" ; 
1330 RETURN 



1400 

1410 
1415 
1420 

1430 
1435 
1440 

1445' 
1450 
1455 
1460 
1465 
1470 
1475 
14B0 
1485 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1600 



CLS:C0L0R2 
PRINT"******************************" 



**»*******************" 
»*•*»#**«**♦*********" 



PRINT"* 

PRINT"* GOAL 

h'KlN I "** 

PRINT"**** 

PRINT"****** 

PRINT"***** 

PRINT"*** 

PRINT"** 

PRINT"* 

PRINT"*** 

PRINT"*** 

PRINT"***** 

PRINT"***** 

PRINT"**** 

PRINT"*** 

PRINT"*** 

PRINT"** 

PRINT"*** 

PRINT"*** 

PRINT"* 

PRINT"* 

PRINT"* 

PR I NT "**************•**■******■******■*"> 

RETURN 

CLS:CQL0R2 



** w* c**** 


»*** ■ 


«*** 




»•**" 


#* 


* 


***" 


*** 


******* 


***" 


**** 


***** 


• **" 


** 




♦•**" 


* 


** 


****" 


* 


*»** 


»*##" 




****** 


»***" 




******* 


***■*" 


* 


***** 


*****" 


■»** 


»♦«*** 


»****" 


***** 


****** 


******" 


****** 


•*«* »****♦**" 


*** 


♦♦** ********" 


** 


** 


*****#" 


* 


* 


**»*«" 

****" 

*" 


**** 


**** 


**" 



1610 

1615 

1620 

1625 

1630 

1635 

1640 

1645 

1650 

1 655 

1660 

1665 

1670 

1675 

1680 

16B5 

1690 

1695 

1700 

1705 

1710 

1715 

1720 

1725 

1730 

1SO0 

IBlO 

1815 

1820 

1B25 

1B30 

1835 

1840 

1845 

1850 

1855 

1860 

1865 

1 870 

1875 

1S80 

1BB5 

1890 

1&9^ 

1900 

1905 

1910 

1915 

1920 

1925 

1930 

2000 

2010 

2015 

2020 

2025 

2030 

2035 

2040 

2045 

2050 

2055 

2060 

2065 

2070 

2075 

2080 

2005 

2090 

2095 

2100 

2105 

2110 

2115 

2120 

2125 

2130 

3100 

4000 

4005 

4010 



F'RINT"******************************" 



** 
*** 
*** 
*«* 
** 



** 

*#* 

** 



h *** ■♦*****" 

«** **" 

*♦ ♦* *** **" 

** *** *•" 

* **** ***" 

■ *** ****" 

** ***»" 

♦ * ** ** •*" 
* * **■' 

***** ****** **" 
**** ******** ♦*" 
*** **" 

***** **" 

** ***** *" 
** * ******** *" 

** »**»*******»** *" 
**** »** ******** *" 
** * ****** *" 

** »***• *" 

** *" 

***** *" 

PRINT" **»*»*************************" 
RETURN 
CLS:C:0L0R2 

PRINT"******************************" 
PRINT"* ****** »**" 

PRINT"* GOAL *** **" 



PRINT"* 

PRINT"* GOAL 

PRINT"* 

PRINT"* 

"■^■INT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"** 

PRINT"*** 

PRINT"*** 

PRINT"** 

PRINT"* 

PRINT"* ■ 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"** 

PRINT"** 

PRINT"*** 

PRINT"**** 

PRINT"***** 



PRINT"** 
PRINT"*** 

PRINT"*** 

PRINT"*** 

PRINT"** 

PRINT"* 

PRINT"** 

PRINT"*** 

PRINT"** 

PRINT"** 

PRINT"* 

PRINT* 

PRINT"* 

PRINT"* 

PKInT "■- 

PRINT' *** 

PRINT"**** 

PRINT"**** 

PRINT"**** 

PRINT"**** 



*** 
****** 
** * 
****** 
******* 
********* 
******* 
****** 
***** 



** 
*** 
* 



** 

*** 
** 
** 



***** 
******* 
***** 
***** 
****** 
*** 
***** 
*** 
** 
** 
** 
** 

**** 
*** 
** 
**** 
*** 



* »*" 

* **" 

«**" 

***" 

**■ 

*«***' 

»***•♦' 

*****■**»' 

********' 

********' 

**#**#*' 

*♦***' 

#**♦»' 

*****' 



** 

**** 



25 PRINT"****************************** " 
RETURN 
CLS:C0L0R2 

PRINT "******** •****************•****" 
PRINT" * »***************»•****" 
PRINT"* GOAL ** ***** **" 

PRINT"** **" 

PRINT"*** *** ** **" 

PRINT"********** ****** ***" 



PRINT"** 

PRINT"*** 

PRINT"**** 

PRINT"** 

PRINT"** 

PRINT"** 

PRINT"** 



* *♦■•-*»** **»*" 

****" 

• ***" 

**♦»**»**********•»****" 

* **** **" 

*» " 

»» **** **" 

»" 

#" 



PRINT"************************** 

PRINT"** * ** 

PRINT"** 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"* 

PRINT"** 

PRINT"*** 

PRINT"*** 



** ** *»" 

************ w* »*-»**♦**»**♦" 
** *" 

***** ***■ 



**** ♦" 
*" 
**** *" 

PRINT"******************************" 
RETURN 
6OTD3100 
VP0KE15724+P,32 
P=F'+-FF: IFP=OORF=4THENFF=-FF 
VP0KE15724+F. 42: RETURN 
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CARTRIDGES 


PRICE 


D BASIC LEVEL Ij 


$39.95 


a BASIC LEVEL IIIA 


$130 


D BASIC LEVEL IIIB 


$230 


D MUSIC 


$39.95 


D N/SUB 


$39.95 


□ SAFARI HUNTING 


$39.95 


D BORDER LINE 


$39.95 


n CONGO BONGO 


$39.95 


D YAMATO 


$39.95 


D STAR JACKER 


$39.95 


n CHAMPION TENNIS 


$39.95 


C MONACO GP 


$39.95 


n CHAMPION BASEBALL 


$39.95 


n SINBAD MYSTERY 


$39.95 


D VIDEO FLIPPER 


$39 95 


□ PACAR 


$39 95 


D POP FLAMER 


$39.95 


n CHAMPION GOLF 


$4995 


D EXERION 


$49.95 


a SAFARI RACE DUE JANUARY 


$49.95 


D LODE RUNNER DUE JANUARY 


$49.95 


C BOXING DUE JANUARY 


$54.95 


□ ORGUS DUE FEBRUARY 


$49.95 


D FLICKY DUE FEBRUARY 


$59.95 


HOME/PERSONAUFINANCE 




CASSETTES 


PRICE 



□ FILE SYSTEM $19.95 
C CHEQUE BOOK RECONCILIATION $19.95 
a LOAN & MORTGAGE CALCULATION $1995 
a ACCOUNTS RECEIVABLE $30 00 

□ ACCOUNTS PAYABLE $30.00 
C 32K WORD PROCESSOR $30,00 
C PERSONAL RECORD KEEPER $30 00 
C 16K EASY WRITER $1995 

GAME CASSETTES PRICE 

D TOWERS OF HANOI $19.95 



I enclose payment: i/ 
Qvisa I iBankcarq 



CardhQider signature 

Date card expires 

Cheque I 1 Cheque No 

Postal Orderl | Postal note[ | 




If you are having any problem* obtaining any of the 
pieces of software please contact Granstand Leisure 
enclosing a cheque or postal order. 



yjy.-y.-t 


|-:->:-:'WSv^-:'.^^S 


:-K-:V;^:-: 




^>>^ 


l>x:::iiili:::iii« 


Jk::w 


iSi* 




n HANGMAN 




$19.95 




D CITY-LANDER 




$19,95 




D CUBE-IT 




$30.00 




D BUGALOO 




$19.95 




D LASER BLAST 




$19.95 




n MUNCHMAN 




$30.00 




D ENTERPRISE ESCAPE 




$19.95 




D MARSMOBILE 




$1995 




D MARS ADVENTURER 




$19.95 




a EMPIRE 




$19.95 




D KALAH 




$19.95 




D CHESS 




$19.95 




D DEATH SATELLITE 




$19-95 




D BIT BYTE 




$19.95 




D THE HOUSE 


DUE JAN. 


$30.00 




D THE PYRAMID 


DUE JAN. 


$19.95 




n CODE BREAKER 


DUE JAN. 


$19.95 




a BACKGAMMON 


DUE JAN 


$19.95 




n LUMBER JACK 


DUE JAN 


$19.95 




D TRAMPMAN 


DUE JAN 


$19.95 




D SEGA GAMES PACK 1 


DUE JAN 


$19,95 




EDUCATIONAL CASSETTES 


PRICE 




a ROCKET MATHS 




$19.95 




□ LEARNING ALPHABET 




$19.95 




D WATCH ME DRAW 




$19-95 




D SPELLING 




$19-95 




□ ADDITION 




$19.95 




D SUBTRACTION 




$19.95 




a MULTIPLICATION 




$19.95 




D SPRITE EDITOR 




$19.95 




D MUSIC EDITOR 




$19.95 




D TYPING TUTOR 




$19.95 




□ LEARNING TO COUNT 
n SHAPE a COLOUR QUIZ 


$19.95 
$19-95 



D MUSIC CARTRIDGE DEMONSTRATOR$19.95 
a SEGA GRAPHIC DESIGNER $19,95 

D GEOGRAPHY QUIZ I DUE $19.95 

D GEOGRAPHY QUIZ 11 JANUARY $19.95 

D MATHS HANG UP $19.95 



■1 



GRANDSTAND 
Box 2353 
AUCKLAND 



I 



CHANGE OF ADDRESS 

Name 

Old Address 

New Address - - 

If you are changing your address 
please complete this coupon and 
return to: 

Grandstand Sign 
P.O. Box 2353 
Auckland, NZ, 
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GLOSSARY 



Accessory Devices - additional equip- 
ment which attaches to the computer and 
extends its functions and capabilities. In- 
cluded are preprogrammed cartridges' 
and units which send, receive or store 
computer data, such as printers and disks. 
These are often called peripherals. 

Array ■ A collection of numeric or string 
variables, arranged in a list or matrix for 
processing by the computer. Each ele- 
ment in an array is referenced by a 
subscript * describing its position in the list. 

ASCII - The American Standard Code 
for Information Interchange, the code 
structure used internally in most personal 
computers to represent letters, numbers, 
and special characters. 

BASIC - an easy-to-use popular pro- 
gramming language used in most per- 
sonal computers The word BASIC is an 
acronym for "Beginners All purpose Sym- 
bolic Instruction Code." 

Baud - commonly used to refer to bits per 
second. 

Binary - a number system based on two 
digits. and 1 . The internal language and 
operations of the computer are based on 
the binary system. 

Branch • a departure from the sequen- 
tial performance of program statements. 
An unconditional branch causes the com- 
puter to jump to a specified program line 
every time the branching statement is en- 
countered A conditional branch transfers 
program control based on the result of 
some arithmetic or logical operation. 

Breakpoint - a point in the program 
specified by the STOP command where 
program execution can be suspended. 
During a breakpoint, you can perform 
operations to help you to locate program 
errors. Program execution can be resum- 
ed with a CONT command, unless editing 
took place while the program was 
stopped. 

Bug - a hardware defect or programm- 
ing error which causes the intended 
operation to be performed incorrectly. 

Byte - a string binary* digits (bits) treated 
as a unit, often representing one data 
character* . The computer's memory 
capacity is often expressed as the number 
of bytes available. For example, a com- 
puter with 16K bytes of memory has 
about 16.000 bytes available for storing 
programs and data. 

Cartridges - preprogrammed ROM' 

modules which are easily inserted in the 
SEGA computer to extend its capabilities, 

Character - a letter, number, punctua- 
tion symbol, or special graphics symbol, 
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Command - an instruction which the 
computer performs immediately. Com- 
mands are entered with no preceding line 

number. 

Concatenation - linking two or more 
strings* to make a longer string. The " + " 
is the concatenation operator. 

Constant - a specific numeric or string* 
value- A numeric constant is any real 
number such as T2 or -9054, A string 
constant is any combination of up to 248 
characters enclosed in quotes, such as 
"HELLO THERE' or "275 FIRST ST," 

Cursor - a symbol which indicates where 
the next character* will appear on the 
screen when you press a key. 

Data - basic elements of information 
which are processed or produced by the 
computer. 

Default - a standard character or value 
which the computer assumes if certain 
specifications are omitted within a 
statement' or a program*. 

Device - (see Accessory Devices) 

Disk - a mass storage device capable of 
random and sequential access. 

Display - (noun) the video screen: (verb) 
to cause characters to appear on the 
screen. 

Execute - to run a program; to perform 
the task specified by a statement' or 
command' , 

Exponent - a number indicating the 
power to which a number or expression* 
is to be raised; usually written at the right 
and above the number. For example, 2 
- 2x2x2x2x2x2x2x2x In SEGA BASIC 
the exponent is entered following the let- 
ter "E" in scientific notation * . For exam- 
ple. 2 = 2 8;l,3x 10 = T3E25 

Expression - a combination of constants, 
variables, and operators which can be 
evaluated to a single result. Included are 
numeric, string, and relational 
expressions. 

File - a collection of related data records 
stored on a device: also used inter- 
changeably with device* for input/output 
equipment which cannot use multiple 
files, such as a line printer. 

Function - a feature which allows you 
to specify as "single" operations a varie- 
ty of procedures, each of which actually 
contains a number of steps; for example. 
a procedure to produce the square root 
via a simple reference name. 

Graphics - visual constructions on the 
screen, such as graphs, patterns, and 
drawings, both stationary and animated. 



SEGA BASIC has build-in subprograms 
which provide easy to-use colour graphic 
capabilities. 

Hardware - the various devices which 
compn;,f a computer system, including 
memory, the keyboard, the screen, disk 
drives, line printers, etc. 

Hcrtz(HZ) - a unit of frequency One 
Hertz = one cycle per second. 

Hexadecimal - a base .16 number 
system using 16 symbols. 0.9 and A-F. 
It is used as a convenient "shorthand" 
way to express binary" code. For exam- 
ple, 1010 in binary = A in hexadecimal. 
11111111= FF. Hexadecimal is used in 
constructing patterns for graphics 
characters in the PATTERN subprogram. 

Increment - a positive or negative value 
which consistently modifies a variable*. 

Input - (noun) data* to be placed in com- 
puter memory; (verb) the process of 
transferring data into memory. 

Input Line - the amount of data ' which 
can be entered at one time. In SEGA 
BASIC, this is 248 characters. 

Internal date-format - data* in the 
form used directly by the computer. In- 
ternal numeric data is 8 bytes' long plus 
1 byte which specifies the length. The 
length for internal string data is one byte 
per character in the string* plus one 
length-byte. 

Integer - a whole number, either 
positive, negative or zero. 

I/O - Input/Output; usually refers to a 
device function, I/O is used for com- 
munication between the computer and 
other devices (e.g. keyboard, disk) 

Iteration • the technique of repeating a 
group of program statements; one repeti- 
tion of such a group. See Loop. 

Line - see input line, print line, or pro- 
gram line. 

Loop - a group of consecutive program 
lines which arc repeatedly performed, 
usually a specified number of times. 

Mantlssa - the base number portion of 
a number expressed in scientific 
notation*. In 3.264E-t-4, the mantissa is 
3.264. 

Mass Storage Device - an accessory 
device', such as a cassette recorder or 
disk drive, which stores programs and/or 
data * for later use by the computer. This 
information is usually recorded in a for- 
mat readable by the computer, not 
people. 

Memory - see RAM. and ROM, and 
mass storage device. 

Continued on Page 19 



How To Program 

In Machine Code Language 

On The Sega SC3000 



Binary, Decimal 
and Hexadecimal. 

Binary Numbers (Base 2) 

The simplest logic is the Binary Digit. 
It has only two values or 1. this can 
be likened to an electric light bulb it is 
either OFF or ON (0 or 1), This single 
Binary Digit is refered to as a 'bit'- 

Declmal Numbers (Base 19) 

Decimal Numbers is the system we are 
taught at school and these have 10 
possible values to 9, If we require to 
count higher than nine we use a second 
digit placed to the left of the first 
number. This value represents groups 
of 10s and this practice is continued for 
groups of 100s. 1000s etc. 
These can be written as powers of 10s 

e.g.. The number 795 = 100 10 1 

7 9 5 
or (7 X 100) + (9 X 10) = (5x1) 

This practice can be used for binary 
digits to enable us to count higher than 
1 . In binary if we take that 0-0 and that 
1 = 1, to count higher we will have to 
generate a carry to the next column, 

e.g., To represent 2 we will have to add 
1 + 1 

1 

+ 1 



10 binary 



1 plus 1 equals zero and carry 1 

Therefore the binary figure 10 actually 
represents the decimal figure 2, 

To represent 3 add 2 + 1 in binary. 

10 

^-l 
11 binary 



To represent 4 add 3 + 1 in binary. 

11 

+ 1 

100 binary 



One plus one in the first column equals 
carry 1 

One plus one in the second column 
equals carry 1 

One plus zero in the third column 
equals 1. 



So the figure 100 in binary represents 
4 in decimal. It is necessary to convert 
decimal numbers to binary numbers for 
the computer works in binary numbers. 
To convert decimal to binary divide the 
decimal number by 2 and keep note of 
your remainders. 

e.g.. to convert 13 to binary. 

Step 1; 13 -^ 2 = 6 and 1 remainders. 
Step 2: 6-^2 = 3 and remainders. 
Step 3: 3 -^2 = 1 and 1 remainders. 
Step 4:1 -^2 = and 1 remainders. 

Take the remainders in reverse order 
and there you have binary equivalent 

1101 - 13 decimal, 

It is possible to write out binary numbers 
as powers of 2s and convert them to 
decimal. 



1011 binary = 8s 
1 



or (1 X 8} 

(1 X 1) 

or 8 + 2 + 



+ 



4s 2s Is 
1 1 

(0 X 4) + (1 X 2) + 



1 = 11 decimal. 



Hexadecimal (Base 16) 

Hexadecimal is a numbenng system 
that counts up to 15 before a carry is 
generated. The numbers 10 to 15 arc 
represented by the letters A to F. Hex- 
adecimal (hex) is convenient because 
each digit can be represented by exact- 
ly four binary digits (bits). 

Table 1 

Decimal Binary Hex 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 



0001 

0010 

0011 

0100 

0101 

0110 

0111 

1000 

1001 

1010 

1011 

1100 

1101 

1110 

nil 



1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



To add hexadecimal numbers 
remember a carry is only generated 
when the numbers add up to T\ 



by Colin Smith 



eg. 1. 


5 


2, 


8 




+ 7 




+ A 




C 




13 


3, 


13 


4, 


IB 




13 




+ 0F 



-t-26 



2A 



Now have a look at question 3 it looks 
like a normal decimal arithmatic, but 
remember it is hexadecimal. The true 
decimal equivalent is 38. If you saw that 
question by itself you could not tell 
whether it is hexadecimal or decimal. 
SO whenever a hexadecimal number is 
written down write an H after it so it can 
be identified as Hex. 

All the questions above should have 
the letter H after each number. 



e.g. 1. 



3. 



5h 

+ 7H 

Ch 

13H 

-^13H 
26H 



2. 



4. 



8h 

+ Ah 

13h 



IBh 

+ 0FH 

2Ah 



This is a habit you must get into. 
Another habit is to place a stroke 
through every zero (e.g.. 0) this iden- 
tified the figure as a zero and not the 
letter O. 

e.g.. The letters CODE can take on a 
completely new meaning. C0DEH. 

How Do These 3 Number Systems 
Work Together. 

The Z80 reads and writes data, 8 bits 

long in binary. It is very confusing to 
read 8 bits of binary and understand 
what the code represents (e.g., 
11000011). It is convenient to split the 
eight bits into 2 four bit codes and repre- 
sent there value in hex, 

1100 0011 binary or C3 hex. 

The Z80has 16 address lines and these 
are also in binary. There are over 64 
thousand possible combinations using 
these 16 address lines again it is difficult 
to remember a specific address if it is 
written down in binary (e.g., 
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0010110000111111). What we do is 
to split the 16 bits into 4 four bit codes 
and again use the hexadecimal 
equivalent. 

0010, 1100, 0011. UU, = 2C3FH. 

The 2Ch is called the high byte, the 

3Fh is called the low byte. 

When we use decimal numbers These 

must be converted to binary so the 

computer can store and operate on 

them. 

The Z80 instruction set consists of 158 
different types, which can be condens- 
ed down to the following groups. 

Load exchange. 

Block transfer and exchange, 

Arithmetic and logical. 

rotate and shift. 

Bit manipulation, 

Jump, call, return, 

Input/output, 

CPU control. 

Addressing Mode. 

Instructions can be one to four bytes 
long. The first byte of data fetched is us- 
ed by the computer as the op code — 
i.e., tells the computer what to do with 
the data it already holds or data follow- 
ing the op code, 

e.g.. When the computer is first turned 
on it is reset and goes to the very first 
location in memory which is 0000H. If 
we examine 0000H we find that the 
code stored there is C3h. Now when 
the computer reads the code C3h, it is 
internally programmed to jump uncon- 
ditionally to a new location. The second 
and sometimes third byte of data which 
is refered to as the operand and is the 
data which is to be operated upon by 
the first code. 

e.g. , If we look at the first example the 
code stored in 0000H is C3H which 
means jump unconditional to a new 
location, but were to? Its internal pro- 
gramming tell it that the new address is 
located in the following 2 memory loca- 
tions. It reads the next address in 
memory which is 0001H. The data 
there is used as the low byte of the new 
16 bit address and then it reads the next 
location and uses the data there as the 
high byte of the new 16 bit address. 

Here is step by step what happens in 
the computer. 

Step 1. 

The computer is turned on and is 
automatically reset (cold start) , which 
loads the program counter with 0001^. 

Address Code 

Program ► 0000H C3h 

Counter 0001H 00H 

0002H 68h 

The computer uses this address to fetch 



its op-code which is C3h. This tells the 
computer that it is to jump to a new ad- 
dress and the address is in the follow- 
ing 2 memory spaces. 

Step 2. 





Address 


Code 


Program 


0000H 


C3h 


Counter 


"--^000lH 


00H 




0002H 


68h 



The program counter is automatically 
incremented and the data is read from 
this location, as the low byte of the new 
address. 

Step 3. 





Address 


Code 


Program 


0000H 


C3h 


Counter ^ 


\ 0001H 


00H 




^0002h 


68H 



The program counter is automatically 
incremented and the data is read from 
this location and is the high byte of the 
new address. 



Step 4. 

Address 

Program ► 6800H 

Counter 



TABLE 2 SOURCE 



Code 
C3h 



The high and low byte are now placed 
into the program counter, and the com- 
puter is now ready to fetch its next in- 
struction from this address. 

i.e., The computer has jumped from 
0000H to 6800H 

Have a look at these memory locations 
yourself. 



B REM DIBF*l-rtV r-lEMORI- 
10 n— REEK < S.lHCi09'»> 

■««> END 



TABLE 2 contains the codes for mov- 
ing 8 bits of information In and Out of 
the computer chip and from one 
register to another. To operate the table 
we must first decide were the informa- 
tion is coming from (source) and then 
were we want it to go (destination) the 
cross contains the code to achieve this. 

If we wished to load Reg D with the 
code 60H we would use the "load im- 
med" column, which would load the 
code straight into the register. Using the 
table we find the code is 16h. n. The 
16h is the instruction code that tells the 
computer that data is to be loaded 
straight into Reg D and that the data is 
in the next memory following. The 
small n represents the value we wish to 
place into D which is 60H. 









IMPLIED 


REGISTER 


REG 

INDIRECT 


INDEXED 


ftlliiK 


I'.lMf 






1 


R 


A 


S 


c 


D 


E 


H 


L 


HL 


BC 


DE 


IX 

+ d 


lY 

■td 


lnn> 


(nl 




\- 
Ui 

O 

UJ 


A 


ED 

57 


ED 
5F 


7F 


78 


79 


7A 


7B 


7C 


7D 


7E 


0A 


lA 


DD 
7t 
a 


f^D 
d 


lA 


JE 

n 




B 






17 


40 


41 


42 


43 


44 


45 


46 






DO 
d 


FO 
4(. 
d 




06 




C 






4F 


48 


49 


4A 


4B 


4C 


4D 


4E 






4F 
d 


ftl 

■IE 




0E 
n 




D 






.^^7 


50 


51 


52 


53 


54 


55 


56 






DD 
d 


FD 
d 




16 
n 




E 






5F 


58 


59 


5A 


SB 


5C 


5D 


5E 






it 

d 


FD 
SI 

4 




IE 

n 


7. 




H 






67 


50 


61 


62 


63 


64 


65 


66 






DD 

d 


FD 

d 




26 
n 


u 

1- 
< 


L 






fiF 


68 


69 


bA 


6B 


6C 


6D 


6E 






DD 

t.r. 

d 


FD 




2E 

n 






HL 






77 


70 


71 


72 


73 


74 


75 














36 

n 




BC 






02 






























DE 






12 






























Q 

UJ 

X 

UJ 

d 
z 


IX 
+ d 






Dp 


d 


<1 


DD 

d 


DO 


DD 
U 
d 


DD 

7S 

d 














DD 

d 




IV 
+ d 






Fn 


FO 

d 


71 


FD 
d 


FD 

73 
d 


FD 

74 


ID 

rs 

d 














FD 

IB 
d 




3g 


InnI 






fi 






























Q 

uJ 

-1 
Q. 


1 






ED 

17 






























R 






ED 
4F 
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If we wished to move data from one 
register to another (say we now wish- 
ed to toad the data in Reg D into Reg 
A) using the table we find D (source) 
to A (destination) is the code 7Ah, 

The following program will enable you 
to load a register with a value move it 
to Reg A, and then the contents of A 
will be placed into memory were you 
can examine it to ensure you have us- 
ed the correct codes. 



The program puts the data into 
memory locations A000 to A007 and 
then jumps to the data and runs the 
program entered and prints the result 
in memory &HA010. 

You can modify the program by 1. 
changing the value of the data, 2. which 
register the data is loaded into, but don't 
forget to change the code which loads 
this data into A. i.e.. If data is loaded 
into Reg C the code must be changed 
to load Reg C into Reg A). 



1, A000H 16H: 

A001H 60H: 



LOADS D IMMEDIATELY WITH THE DATA 60H. 



2. A002H 7AH: MOVES THE DATA FROM REG D TO REG A. 

3. A003H 2lH: 

AOmH 10H: PUTS THE ADDRESS A010H [NTO REG HL 
A005H A0H: (This code is not in the table, more on this later) 

4. A006H 77h: PUTS THE DATA IN A INTO THE LOCATION STORED IN HL 
A007H C9h: RETURNS THE PROGRAM BACK TO BASIC. 

(Code not in table) 



Here is a short assignment. 

1 . How many states are there is a Hex- 
adecimal number system. 

2. Convert the following decimal 
numbers to binary and then to 
hexadecimal. 

2. 6. 32, 11. 10, 15. 8. 14 

3. Add the following binary numbers, 

a. 00001101 + 00000111, 

b. 00000010 + 00000010, 

c. 00001101 + 00001000, 

d. 01100111 + 00010001 

4. Check your answers to the above. 
by converting the original numbers 
and answers into decimal. 

5- Convert the following hexadecimal 

numbers to binary 
a. F14A b. 0521. c. 4902. d, C0DE 

The answers to these questions will 

be in the next issue. 



Continued from Page 16 

Noise - various sounds which can be us- 
ed to produce interesting sound effects, 
A noise, rather than a tone, is generated 
by the SOUND subprogram ' when com- 
mands 4 and 5 are specified. 

Null String - a string* which contains no 
characters and has zero length. 

Number Mode - the mode assumed by 
the computer when it is automatically 
generating program line* numbers for 
entering or changing statements. 

Operator - a symbol used in calculations 
(numeric operators) or in relationship 
comparisons (relational operators). The 
numeric operators are -(-,-.'./, The rela- 
tional operators are , , = , = , . . = - = , = 

Overflow - the condition which occurs 
when a rounded value greater than 
9.9999999999999E+99 or less than 
-9.9999999999999E-99 is entered or 
computed When this happens, a warn- 
ing is displayed, and the program* stops. 

Output - (noun) information supplied by 
the computer; (verb) the process of 
transferring information from the com- 
puter's memory onto a device, such as a 
screen, line printer, or mass storage 
device ' . 

Parameter - any of a set of values that 
determine or affect the output of a 
statement* or function*. 

Print Line - a 38-position line used by 
Ihe PRINT statement. 

Program - a set of statements which tell 
the computer how to perform a complete 
task. 

Program Line - a line containing a single 
statement*. The maximum length of a 
program line is 248 characters'. 

Pseudo-random number - a number 



produced by a definite set of calculations 
(algorithm) but which is sufficiently ran- 
dom to be considered as such for some 
particular purpose. A true random 
number is obtained entirely by chance. 

RAM - random access memory; the main 
memory where program statements and 
data' are temporarily stored during pro- 
gram execution*. New programs and 
data can be read in. accessed, and chang 
ed in RAM. Data stored in RAM is eras- 
ed whenever the power is turned off of 
BASIC is exited. 

Reserved Word - in programming 
languages, a special work with a predefin- 
ed meaning A reserved word imust be 
spelled correctly, appear in the proper 
order in a statement * or command * , and 
cannot be used as a variable' name. 

ROM - read-only memory, certain in- 
structions for the computer are per- 
manently stored in ROM and can be ac- 
cessed but cannot be changed Turning 
the power off does not erase ROM 

Run Mode - when the computer is 
executing* a program, it is in Run Mode 
Run Mode is terminated when program 
execution ends normally or abnormally 
You can cause the computer to leave Run 
Mode by pressing BREAK during pro- 
gram execution (see Breakpoint*) 

Scientific Notation - a method of ex- 
pressing very large or very small numbers 
by using a base number (mantissa ' ) times 
ten raised to some power (exponent*). 
To represent scientific notation in SEGA 
BASIC enter the sign, then the mantissa, 
the letter E, and the power of ten (preced- 
ed by a minus sign if negative). For ex- 
ample, 3,264; -2,47E -17. 

Scroll - to move the text on the screen 
so that additional information can be 
displayed. 



Software - various programs which arc 
executed by the computer, including pro- 
grams built into the computer. 
Cartridges' programs, and programs 
entered by the user. 

Statement - an instruction preceded by 
a line number in a program. In SEGA 
BASIC, more than one statement is 
allowed in a program line". 

String - a series of letters, numbers and 
symbols treated as a unit. 

Subprogram - a predefined general- 
purpose procedure accessible to the user 
through the statement in SEGA BASIC. 
Subprograms extend the capability of 
BASIC and cannot be easily programm- 
ed in BASIC 

Subroutine - a program segment which 
can be used more than once during the 
execution * of a program , such as a com- 
plex set of calculations of a print routine. 
In SEGA BASIC a subroutine is entered 
by a GOSUB statement and ends with a 
RETURN statement. 

Subscript • a numeric expression which 
specifies a particular item in an array * . In 
SEGA BASIC the subscript is written in 
parentheses immediately following the ar- 
ray name 

Underflow - the condition which occurs 
when the computer generates a numeric 
value greater than -lE-100, less than 
lE-100, and not zero. When an 
underflow occurs, the value is replaced by 
zero. 

Variable - a name is given to a value 
which may vary during program execu- 
tion. You can think of a variable as a 
memory location where values can be 
replaced by new values during program 
execution, 

'See definition In Glossary 
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PROGRAMMING EXPLORED 



This month we will deal with the read, 
data and restore statements- 

These commands are used to store and 
input information into a program. 



11? READ x,v,z 

20 PRINT XS Y! Z 
33 DATA 1.3.5 



When the computer sees the statement 
READ it looks at the first data statement 
in the program (in this case line 30) 
The computer then inputs the informa- 
tion after the word DATA in to the 
variable or variables following the read 
statement [in this case X.Y and Z in line 
10). 

After the computer has put the first 
piece of data into X (in this case the 
number 1) . the computer shifts onto the 
next number in the list which is 3. This 
number Is placed in Y. The computer 
now moves onto look at 5 which is plac- 
ed in Z. Your SC3000 uses what is call- 
ed a "DATA POINTER" to tell it which 
piece of information it should be look- 
ing at. 



VARIABLE 



X 
Y 
Z 



VALUE 



Now try changing line 30 to read 

30 DATA HELLO. NICE, DAY 

Doesn't work does it, A type missmatch 
error results because you are trying to 
put a STRING ($) into a VARIABLE {a 
number). Change the program to read: 






The program above could also have 
been done like this: 

10 FDR J=l TD 3 

20 READ X« 

30 PRINT X«! sNEXT 

40 DATA HELLO .NICE .DAY 

Notice there is only 1 variable after the 
read statement (this is X$) each time the 
computer reads a piece of DATA it 
replaces the value in X$ with the new 
piece of information. The DATA 
POINTER is then shifted onto the next 
piece of data. Now type in: 

TEST 

10 READ A* 
20 PRINT At: '■ ■•; 
30 BEEP: GOTO !>? 
40 DATA HELLO, HOW,ARE.¥aU, TODAY,? 



The program crashes as the computer 
does not have enough data (the data 
pointer is pointing at nothing). To stop 
this happening we must have enough 
data for the read statement This can be 
done with a FOR-NEXT Loop. 

10 FDR J=l TO 6 

2(.' READ At:F'RINT A»! " ": 

30 BEEP: NEXT 

40 DATA HELLO, HDW. ARE, YDU, TODAY,"- 

Now try deleting line 40 and replacing 
it with line 5. 

5 DATA HELLO,HOW, ARE, YDU, TODAY,? 

Try running the program Notice how 
it still works. The computer will read 
DATA from any part of the program. 
Notice that it only READS the informa- 
tion from the data line. It does not send 
the program there or delete the 
information: 



5 SCREEN r,r:CL5 

10 DATA 50,50,5©, lO^.S^, lee, 100, l&ia, ICie, 100, 100,50, 100,50.50,58 

20 Dfllfl 50,50.75,25.75.25,100,50 

30 DATA THIS, IS. fl, RATHER, SILLY. LITTLE, PROGRAMME. ISN'T. IT, ' 

40 FOR J=l TD 6 

50 READ X.Y, XI, VI 

60 LINe(X,V)-(Xl,Yl> 

70 NEXT 

BO FQR K=l TD !0 

90 READ B«!pftINT B«i" "J 

100 NEXT 

lie GOTO 110 



RESTORE 

This statement moves the Data Pointer 
to the first line of DATA or to the line 
you nominate: 



10 DATA HELLO 

20 READ A» 

30 PRINT A»: ■■ ■'( 

40 RESTORE 

50 GOTO 20 

Try deleting Line 40 You get an out 
of data error, as there is no data left to 
read after the word hello. 

EXAMPLES 

10 SCREEN 2.2 

20 CLSiRESTOREsFOR J^l TO 15 

30 READ C.L* 

40 IF- J = l THEN COLOR ISiPRINT C^tCDTO 60 

50 COLOR I 6 PRINT C* 

66 COLOR C,C, <e,0I-(255, 191 ) 

70 NEXT 

aO BOTQ 20 

■JO DATAl.BLACK,2,eREeN,3,LieMT GREEN, 4, DARK BLUE, 5, LIGHT BLUE, 6, DARK RED, 7, CYAN, 

a.RED.'P.LlGHT RED, 1 0. OAR>: VELLDW. 1 1 , L I6HT YELLOW, 1 2, DARf GREEN, 1 3, MAGENTA, 14. GRE 

V, 15, WHITE 



10 READ N.D 

15 IF ri=ii AND D=0 IHEN END 

ro SOUND l.N. 14:F0K DE-I TO CiWE»T DE 

-0 SOUND '.'ibOTO I'l 

lee UATA a'?1.5^.194,50,52~,5O.SBT,5k' 

lU' D^iTA SB7. 5^3.52:. 50. 494.31', 4flvi,ii'.' 

12© DATA 392.50, '92,30.440.50.4*4.5^1 

130 DATA fl-SA, 7;i.a4t'.2',4'l.i. Ifin 

140 DATA 4'?4, 50, 494, 50. ^27. 5'.'. 587, 5" 

ISO OHIA 'va7. 5t'.*::.>-,50, 494,5i.'.44*.'.3M 

l&O DATA -■■''..■,50,?.'3'.i.50,44o.5",494.5'.> 



21'.' 
22y 



25t.t 
400 



DAIA 440, 7S,3'*2,25, :.92. lOtt 

DATft 4«ti,50, a4i.>,5t'. 494,50, 7.92.50 

Ufllfl 44'>,5i"'.4=?4. 10.577. 1>.'. 494.50. 79:^. SO 

DATft 4 40.50,494, 10.523, 10.494.50.440.50 

DATA :.97,50, rtfl'J, 50,294, 10'> 

DATO ^afl.SPi. Iwa.SO. ^27.5'!. 5B7.50 

DATA 5B7,50,52:., 50,494.5'.', 440,50 

DATO 792.511. 792, 50.44<i'.50, 494.5.' 

DrtTA 440,75. 792.25.392. 100 

DflrO 0,0 
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JOYSTICK OPERATION USING MACHINE CODE ROUTINE 



By t.W. Nicholson 



The Sega Computer is capable of being programmed to pro- 
duce exceptionally good graphics for use in games, educa- 
tional programmes etc. 

However programmes written in BASIC suffer from the 
disadvantage that they are too slow for some applications 
such as the control of sprite movement. These may be sped 
up by programming so that the sprites move in large steps 
but precision of control is lost. 

The problem is overcome by using machine code routines 
for those parts of the programmes where BASIC is too slow. 
This article describes how a machine code routine may be 
used to control the movement of a sprite across the screen 
by the use of a joystick. 

Operation of joystick control is best described by means of 
a flow diagram shown below. 




Fig 1. Flow diagram of simple joystick operation. 

Operation of flow diagram broad terms is as follows: 

1. START;- Computer sets up its internal registers so that 
the joystick port can be read. A register is another name 
for a variable. 

2. The joystick having been read by the computer a deci- 
sion is required to determine if the joystick has been mov- 
ed away from its central resting position . i.e., if the joystick 
has not moved then a loop is set about stage 2 until the 
joystick has operated. 

3. A decision is now made to determine the movement of 
the joystick. If it has moved to the left then control is pass- 
ed to stage 4. However, if movement is in any other direc- 
tion then control isjsassed to stage 5. 



4 and 5. Consists of routines to move the sprite 1 pixel left 
or right. 

6. After movement of the sprite a delay is required before 
the process is repeated again. This is necessary because 
without the delay, machine code is so fast that you will 
hardly sec the sprite flash across the screen. 

Detailed Operation of the Flow Diagram. 

1, The joystick, keyboard and other input/output devices 
are connected to the computers processor via a program- 
mable interface chip. The input/output device that is to 
recognised by the computers processor is determined by 
the address that has been programmed into the interface 
chip. 

Fig 2 below shows this in pictorial form. 



A(&,HDCI 



COMPUTER 
PROCESSOR 



PROGRAMMABLE 

IMEHFACE 

CHIP 



B(&HDDI 



-O keyboatd prinier caswiie 



C(&HDE 



Dl&HDF) 



-O P""l*' aid taswne 



Fig 2. Interface:- Computer — input/output devices. 

Note that the joysticks are connected to port address 8HDF 
so the interface chip needs to be programmed with the ap- 
propriate value. 

Values that appear at this port for various positions of joystick 
No. 1 are as foUows:- 

Table 1:- Port values for joystick No. 1. 

No action FF 

UP FE 

DOWN FD 

LEFT FB 

RIGHT F7 

FIRE L EF 

FIRE R DF 

Knowing the above facts a start to the build up of a machine 
programme can begin as follows:- 

1. LDA.9B 



OUT (DF), A 
IN A (DC) 



2. CP FF 
JPZ . . . . 



3. CP F7 



Sets up interface chip to read 
joystick No. I. 

in A (DC) Reads joystick and 
places value into accumulator "A" 

Compares accumulator A with &HFF 
(see table 1) 

If accumulator A is equal to &HFF 
then return to step 2 i.e., joystick 
is in its central position. If joystick 
has moved then programme steps 
to next stage 3 

Compare accumulator A with F7. 
(Remember F7 is the value in port 
A if the joystick has moved right) 
JPNZ If accumulator A is not equal 
to F7 then programme control is 
passed to stage 5 
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INC A 



CALL 2C44 



4. LDHL 3B01 

Loads HL register with 3B01 (3B01 is the address where 
the X value of sprite No. is stored) 
CALL 2C32 Routine in computer memory 

which reads the X value of sprite 

No. 
INA.(BE) Puts the X value of sprite No. in- 

to accumulator "A" 

Increases the value in accumulator 

"A" by 1. i.e., X value is increased 

by one. 

Sets video display section up for a 

new update 
OUT(BE),A Updates video ram with new data 

i.e., sprite moves to the right by 

one pixel 

5. Similar to stage 4 except that the INC A term is chang- 
ed to a DEC A in order to move the sprite to the left. 

Because of the process just described takes only a very 
minute time to process then a time delay is necessary before 
the process repeats itself again (refer to Fig. 1) . This is describ- 
ed below 

LDBC 0300 Load accumulator "BC" with 0300 (time 
delay) 

Decrements accumulator "EC" by 1 
Load accumulator "A" with 
Compares accumulator "B" with A i.e., 
If accumulator A is not equal to B then 
Jump to read joystick again 



rfr DEC BC 
LDA, 00 
CPB 

•-JRNZ. , . 
JP . . . . 



For different time delay the value in the BC register can be 

changed to a different value from 00!00 to FFFF for maximum 

delay, 

If further delays are required then it is necessary to use more 

than the single loop shown here. 

Machine Code Programme in full:- 



Address 




Machine Code 


9808 


LDA. 93 3E9B 


980A 


OUT(DF),A D3DF 


980C 


!—► INA.(DC).« 


. DBDC 


980E 


CPFF 


FEFF 


9800 


' JRZ980C 


28FA 


9812 


CPF7 


FEF7 


9814 


1 — JRNZ9826 


2010 


9816 


LDHL3B01 


21013B 


9819 


CALL2C32 


CD322C 


98 IC 


INA,(BE) 


DBBE 


98 IE 


INC A 


3C 


981F 


CALL2C44 


CD442C 


9822 


OUT{BE).A 


D3BE 


9824 


JR9834 


180E 


9826 


L-». LDHL3B01 


21013B 


9829 


CALL2C32 


CD322C 


982C 


INA,(BE) 


DBBE 


982E 


DEC A 


3D 


982F 


CALL2C44 


CD442C 


9832 


OUT(BE).A 


D3BE 


9834 


LDBC 0300^ 


0113003 


9837 


1 — ► DEC BC 


OB 


9838 


LDA 


3E00 


983A 


CPB 


38 


983B 


1 JRNZ9837 


20FA 


983D 


JR 980C 


J 18CD 



The remaining problem is how does one enter the machine 
code programme into the computer. 
This is achieved by poking the data into a REM statement 
at the beginning of a programme. 
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Initially the REM statement would have about 60 "As" in it. 
However when the programme is run the machine code 
overwrites the ^'As" with the appropriate information. 
The memory location of the first "A" is 9808 so if we use 
the BASIC command CALL 8H9808 then control is passed 
from BASIC to MACHINE CODE. 

Below is the BASIC programme necessary to enter the 
MACHINE CODE into the computer. 

programme to go here. 

Try this programme. You will notice that movement of the 
joystick to the right will move the sprite right. However move- 
ment of the joystick in any other direction will move the 
joystick left (ref Fig. 1). To stop the programme the RESET 
button needs to be pressed. 

It is interesting to compare this programme with its BASIC 
euivalent by running the two programmes one after the other. 
The difference needs to be seen to be appreciated. 
Below is a listing of the basic equivalent which will move the 
sprite across the screen at about the same speed. 
This can be entered as an addition to the MACHINE CODE 
version . 



■Jl ja y 



«■ C S' C ( J * 



in — 

, H, -r ti 



•- m ij 



z n ui !/> 

m ]> T n 

*< r- 3; SI 

-I r — m 

>N. H m 

*• m Z 
I 

<i ■; I J 

IE - - 

i - ij 



• I J 
T n 
1>- 



- T 

n m 
c ■ 



II 5 II 

X * 

+ •- 



X- 5 « 1> 



■0 ~ 
(.1 f 



u — IJ Ln 

■a » I) 

O U 5 F) 

i> m jj 3 

-I ui u 

K -I » I- 

O 3> » 

n 71 » !■ 

m m D D 

-•■»!■ 

CO o E I; 

- Ti jj B 

B la D 

■. I « H 1> 

- n li i> 

a s" n D 

■" I D I> 

• jj D r. 

o m ij » 

T ■» t: !• 

- in n E 

a » 3J 

JTi -1 » 1. 

■ O 3> 3> 

■n u D 

m ^ u i> 

' I II u 

■n ^ Xi I" 

■q ID C D 

■ vi K H 
rj m II 3> 



NOTE:- To run this part of the programme type in "GOTO 
60" 

EXTRAS FOR EXPERIMENTING 

(1} Try altering the delay in the MACHINE CODE pro- 
gramme to change the speed of the cursor. The delay is 
governed by be at add. 9834, 9835, 9836 

[2) Try making the cursor go up and down:- Hint: Address 
of Y position is at 3B00 

(3) For the real keen try making the cursor go up and down 
as well as left and right:- Hint: Refer to Fig, 1. Extra deci- 
sions need to be inserted between 3 and 5 

CAUTION- When experimenting with machine code extra 
care is needed for you will find that the entire programme 
that has been entered is quite likely to be erased if only the 
slightest error is made. It is not forgiving like BASIC which 
will inform you of any syntax errors. 



MAZERTRON 

by Alan Dobbs 

This is one of the best 3-D maze game we have seen yet for the Sega, uses very little memory. The aim of the game is 
to escape from the maze (there are 8 of them located in lines 46 to 53) before your supply of precious oxygen is exhausted. 
This program makes full use of the Scga's line statements and string handling functions. 

1 BCREEN2,2;CLS:C0L0R13, 12, (e, 0) - (255, 191) . 12: LINE (©, 0) - (255, 191) , 1 , B: LINE (3A, 76 
)-C21©,110), 1,B:CURSDR4O,80:FRINTCHR*(17) ; "WOULD YOU LIKE" : CURS0R46, 90: PRINT" INS 
TRUCTI0NS?":CURS0R76. Ki0: PRINT" CY OR N ) " 

2 Ct=INKEY*: IFC*="N"THENBEEP: G0T09 

3 I FC*< > " Y " ANDC«< > " N " THEN2 

4 BEEP:CLS:C0LGR4, 1, (0,0)~(255, 191) , 1 : F0RF=0T06STEP2: LINE (F, F) - (255-F, 191-F) , 15, 
B: NEXT: CIRCLE (128, 30) ,80, 13, .2,0, 1 : LINE (78, 24) - ( 17fc, 34) , . B: CURSORS©, 26: PRINT"MAZ 
ATR0N"!PA1NT(72,20) ,5 

5 LINE (10, 50) -(245, 181) , 15, B: CURS0R56, 60: PRINT" INSTRUCTIONS" : LINE (56, 70) -( 198, 70 
), 15: LINE ( 14,76) -(241, 177) , 1 5, B: PRI NTCHR* ( 16) 

6 CURS0R18,80:PRINT"Your aim is to escape from the maze. ": CURS0R18, 90: PRINT "The 
exit is indicated by a " ; CHR* (249) ; " when i t " : CURSORIB, 100: PRINT"is in sight. ":C 
URSGRIB, 1 10:PRINT"Your oxygen supply is dwi ndl i ng, and" 

7 CURS0R18, 120:PRINT"you will die i -f it runs out . " : CURS0R18, 130: PRINT"Use the cu 
rsar keys -for movement .": CUR50R1B, 1 40: PRINT"The down key turns you around .": CURS 
0R86, 160:PRINT"Press any key" 

8 IFINKEYt=""THEN8 

9 BEeP:G0SUB46 

10 A1=1:SCREEN2,2:CLS:C0L0R10, 15, (0,0)-<255, 191) , 15: PRINTCHR* ( 16) :B*=CHR*(31) : GO 
T017 

11 B*=INKEY*: IFB*=CHR* <30) ANDfllD* (D*, A+Al , 1 ) ="0 '■THENA=A + A 1 

12 IFB*=CHR*(31)THENA1=-A1 

13 IFB*=CHR*(29)THENAl=(Al = 12) + (-l*(Al=~12) ) + ( - 1 2* ( A 1 = 1 ) ) + ( 1 2* ( Al =- 1 ) ) 

14 IFB»=CHR*(28)THENAl=(Al=-12)+(-l*(Al=12) ) + (-12* ( Al=-1 ) )+(12*(Al=l) ) 

15 IFB«=CHR*<28)aRB*=CHR$(29)0RBt=CHR$ (30 ) aRB«=CHR« (31 ) THEN 17 

16 GOTOll 

17 D=0-.5: IFINT (0)<0THEN40 

18 N=2*Al:BEEP:CLS:LINE(53,21)-(203, 171 ) . 1 . B: LINE (53, 173) -(203, 187) , 1,B: IFA=ZTHE 
N34 

19 IFA=ZTHEN34 

20 C0L0R6:CURS0R58, 176: PRINT "OXYGEN"- "; LEFT* (0*, 0) ; " " 

21 IFMID*(D*, A+Al, 1 ) =" 1 "THENLINE (99, 92) - ( 150, 102) , 1 , B: CURS0R102, 94: FRINTCHR* ( 17) 
J "WALL": BEEP: BEEP: PRINTCHR* (16) : GOTOll 

22 IFriID*(D*, (A+(Al=12)+(-l*(Al=-12) )+<-12*(Al=l ) )+(12*(Al=-l) ) ) , 1 )=" 1 "THENLINE ( 
54, 22) -(92,60) , 1: LINE- (92, 132) , l:LINE-<54, 170) , 1 

23 IFMID*(D*,{A+(Al+<Al-12)+(-l*(Al=-12))+(-12*(Al=:l))+(12*(Al=-l)))), 1)="1"THEN 
LINE (92, 60) -(118, 86) , 1 : LINE- (118, 106) , 1 : LINE- (92, 132) , 1 : LI NE- < 92, 60) , 1 

24 IFMIDt(D*, A+N, 1 )=" 1 " THENLINE ( 1 18, 86) -( 1 38, 106) , 1,B 

25 IFMID*(Ot, (A+(A1+ (Al=-12) +(-!»( Al=12) )+ (-12* (Al=-1 ))+( 12* (Al=l) ))) , 1 )="1"THEN 
LINE (138, 86) -(164, 60) , 1: LINE- (164, 132) , 1: LINE- (138, 106) , 1 : LINE- (138, 86) , 1 

26 IFriID*(Q$, (A+(A1=-12) + (-!*( Al = 12) ) + ( 12* ( Al = l ) ) + (-12* ( Al=-1 ) ) ) , 1 )=" 1 "THENLINE ( 
202, 22) -(164, 60) , 1: LINE- (164, 132) , 1 : LINE- (202, 170) , 1 

27 IFMID*(Q$, (A+(Al=12)+(-l*(Al=-12) )+(-12*(Al=l) )+(12*(Al=-l) ) ) , 1 ) ="0" THENLINE ( 
53,60)-(92, 132) , 1,B 

28 IFMID*<Qt, (A+(Al+(Al=12)+(-l*(Al=-12) )+ (-12*(A1=1) )+(12*(Al=-l) ) ) ) , 1)="0"THEN 
LINE(92,B6)-(lia. 106) , 1 , B 

29 IFMlb*(D*, A+N, 1 ) ="0"THENL I NE ( 1 1 8 , 86) - ( 1 38, 106) . 1 : LINE ( 138, 86) - ( 1 IS, 106) , 1 

30 IFMID*(D*, (ft+(Al+(Al=-12)+<-l*(Ai=12) )+(-12*(Al=-l) )+(12*(Al=l) ) ) ) , 1>="0"THEN 
L I NE ( 1 38 , 86 ) - ( 1 64 , 1 06 ) , 1 , B 

31 1FMID*(0*, (A+(Al=-12)+(-l*(Al=12) )+(-12*(Al^-l) )+(12*(Al=l) ) ) . 1 ) ="0"THENLINE ( 
164, 60) -(203, 132) , 1,B 

32 IFA+N=ZORA+Al=ZANDMIDt(D*.A+Al. 1 ) -"0"THENCURS0R126. 94: PRINTCHR* (249) 

33 GOTOll 

34 IFO:.OTHENO=0 

35 CLS: COLOR 1, 15, (0,0) -(255, 191) , 15: F0RF=0T010STEP2: LINE (F, F) - (255-F , 191-F) , 1,8: 
NEXT 

36 LINE (40, 14) -(216, 96), 1 , B: CURSDR70, 20: FRINTCHR* ( 1 7 ) ; "WELL DONE" : BEEP: BEEP: FORF 
=0T0100: NEXT: CURS0R58, 40: PRINT" YOU ESCAPED" : CURS0R46, 60: PRINT"WITH" ; INT(O) ; " DXY 
BEN":CURSDR64,a4:PRINT"UNITS LEFT" 

37 F0RF-1T014:LINE(40, 136)~(216, 150) ,F,B:CURB0R46, 140:PRINT"PRESS ANY KEY" 
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38 I F I NKEY* > " " THENBEEP : G0T09 

39 NEXT:GQTQ37 

40 CLS:CaL0R15, 1, (y,y)-(255, 191 ) . 1 : F0RF=0TDieSTEP2: LINE (F, F ) - (255-F , 191-F) , 15,Bi 
NEXT 

41 LINE(20,20)-<235,64) , 15,B:CURSaR26.3(:5:PRINTCHR*(17) ; "YOU HAVE SUFFERED" : CURSO 
R5O,40:PRINT"A BAD CASE OF" : CURSaR43, 50: PRINT"TERMINAL DEATH" : CIRCLE (128, 120) , 10 
, 8 , . 5 , , 1 

42 CURS0R106,B0:PRINT"Thi5":CURS0R7a.90:PRINT"is mai nl y " : CURS0R55, 100: PRINT"dLie 
to a lack":CURS0R118, 1 10: PRINT"o-f " ; LINE (90, 126) - ( 1 72, 140) , 4. B: CURS0R96, 130: PRINT 
"OXYGEN" 

43 C0L0R15:PRINTCHR*(16> :CURS0R92. 170;PRINT"Press any key" 

44 IFINKEY*=""THEN44 

45 BEEP:GDTQ9 

46 V=INT<RND( l)*a)+l : IFV=1THENQ*=" llllllllllll lOOOOOOOl 101 lOlOl 0101001 101 1001001 
01100010101 101 101000100001 10001011011 11010100000011000101 101 1 1 101100010101 100101 
00000011 1111111111" 

47 I F V=2THENG*= " 1111111111111 Oil OOOO 1 OO 1 1 OOO 1 1 OOO 11 1 1 1 1 1 1 1 1 OO 1 1 OOOOOOOOO 1 1 1 1 

11101 101 100000100001 10101000101 1 100000100001 1010101 10101 10000000010011 1111111111 
II 

48 IF'v'=3THENQ*=" 11111111111 1 lOOOOOOOOOOl lOlOl lOlOlOl lOlOOOOOOOOl lOOOlOl 10101 1010 
00000001 100011010101 10101 1010001 100000000101 1010101 10101 1000000000001 1 1111111111 

49 IFV=4THENQ*="1 1111111111 1 lOOOOO lOOOO 1 101 1 lOOlOlOl lOlOOOlOOOOl lOlOlOlOlOl 1 1001 
10100001101000011 101 101010100001 1010001011 11 101111 101011 1000000000001 11111111111 

50 IFV=5THENQ*="1 11111111111 lOOOOOOlOOOl 101 01 lOlOlOl 101001 OlOlOl lOOlOlOlOOOl 1011 
OIOIOIOI 100001000101 11111 1010101 100000010101 101011 110101 1000000000001 11111111111 

51 IFV=6THEN(?*="1 111111111 1 1 lOOOOlOOOOO 1 1 O 1 lOl lOl 101 10 lOO 1 OO 1 001 1 01 01 1 OlO 1 01 lOlO 
0000000 1101010101 101101 00000000 1 1 00 1 1 1 1 1 1 1 110101 0tn> 1 O l l OOOO 10101 OOllllllllllll 

52 IFV=7THENQ«="1 llllllllllll lOOOOl lOOOOl 10 1 1 010010 1 1 lOOlO 101 lOOl 101 lOlOlOlOl 100 
00111000111110001010111000101010111011011110110000001000111010100010111111111111 

1" 

53 IFV=8THENQ*="1 11111111 1 1 1 lOO 1 OOOOOOOl 101001 1 1 101 1 101 1000 10001 lOOOOl 1 1101 11011 
00000001101101110111101000010101101101010001101111111101100000000000111111111111 



54 0*="Oa0D00Q0D00Q0Q00D":G=18 

55 A=INT(RND(1)*132)+1: IFMID* (Qf, A, 1 ) <>" 

56 Z=132: I FA=ZaRA+3=ZGRA-3=ZaRA+ 12=Z0RA- 

57 RETURN 



0"THEN55 

12=ZTHEN55 



I SEQA sqpE^e^T^K^ 






HIGH 

SCORE 

TABLE 



The person recording the highest points tally on 

each of the Sega games cartridges will receive a 

free cassette program, and have their name 

published in the Magazine, along with their score. 

To have your score entered, we must have some 

form of verification as to its validity, ideally a 

photograph of the screen, showing the recorded 

high score. In games where the high score may be 

flashing, the screen action can be frozen, by 

depressing the Reset key. 

High Score Table 

This month we have 2 degrees in space in- 

vaderology to present. The awards with honours, 

goto: 

Mark Culter 

Palmerston North 

For his outstanding performances producing these 

scores: 

Star Jack 726725 

Popflamer 2260^83 



If we were holding a Sega Champion Golf open, 
there is one player who would be at the top of the 
leader board. 

Hank Hoitiangaof Henderson, Auckland, obviously 
had no trouble putting while scoring an amazing 
8 under the card for round 1. 



HOLE SCORE 




1 




3 


2 




5 


3 




2 


4 




3 


5 




3 


6 




3 


7 




3 ■^ 


8 




4 


$ 




2 


Star Jacker 726725 


Monaco GP 999999 


Pop Flamer 226009 


Pacar 1 ,526,40 


Golf -8 


Video Flipper 11(3,600 



I 
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SERPENT 

BY COSTA KERDEMELIDIS 



This program is being awarded the program of the month prize for its superb use 
of the Sega's sprites, sound (capability). The writer of this program has received 
a cartridge game of his choice. The idea of the game is that you are a snake that 
has to move it way around the garden eating apples and lemons and magic 
mushrooms. The game gets harder and harder as the screen is progressively fulled 
as you move on to the next round. 

You are awarded points eating apples and lemons and also as your length increases, 
however, be aware of the magic mushrooms as if you eat one of these the snake 
is reversed so that its old tail becomes the head. 

The serpent also leaves droppings around the garden which you must not eat other- 
wise severe stomach ache and death will occur. Your must also be very careful not 
to crash into the walls or yourself. 

The control of the snake is either with the joystick or the left and right arrow keys- 
You can go left or right according to the direction of travel. What this means is that 
you must think of yourself as the serpent and decide if you must turn to the serpents 
left or the serpents right. This can make things rather confusing! 




5 DIM A{500):DIM B(5O0):GOSUB 510y:GDSUB 40OO:GOSUB 4500:HS=0 



10 

2fi 

5y 

51 

52 

53 

54 

55 

56 

2©0 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

270 

280 

290 

300 

310 

400 

401 

402 

403 

404 



1 , (0,0) -(255. 191) . 1:KF=0 



SCL=0:LE=1 

EOSUB 2100:GDSUB 2000: COLOR 

SPRITE O, (X, Y-2) ,0,2 

E«- I NKEY* : P 1 =ST I CK ( 1 ) 

ON DI GOSUB 200,203,206,209 

GOBUB 400 

IF FL=1 THEN FL=0:GOTD 20 

IF FL=2 THEN FL=0:GOTa 10 

GOTO 51 

IF P1=7GRE$=CHR$(29) 

IF P1=30RE*=CHR*(28) 

Y=Y-8: RETURN 

IF P1=7DRE*=CHR*(29) 

IF P1=30RE*=CHR$C28) 

Y=Y+8: RETURN 

IF P1=70RE*=CHR*(29) 

IF Pl=30RE*=CHR$(28) 

X=X+8: RETURN 

IF P1=7DRE«=CHR*(29) 

IF P1=30RE*=CHR$(28) 

X=X-8: RETURN 

IF P1=30RE*=CHR*(28) 

X=X+8: RETURN 

IF P1=70RE*=CHR*(29) 

IF P1-30RE*=CHR*<28) 

X=X-B: RETURN 

SPRITE 0, <X,Y-2) ,0,2: IF CH=1 THEN CH=0: GOSUB 1800: GOTO 

AD=VPEEK(INT( (Y+3) /B) ♦256+ INT ( X /B ) *8+ ( Y+3) MODS ) 

IF C-500 THEN C=0 

IF X< = 160RX;>=2480RY<=8QRY>=176 THEN GOSUB 800 

IF AD=2B THEN SC=SC+10: GOSUB 1500: CURS0R220, 184: PRINT CHR* <5) ; SC: KF=KF 
KF=LE*8 THEN 1900 

405 IF AD=24 THEN SC-SC+20; GOSUB 
KF=LE*B GOTO 1900 
407 IF AD=252 THEN 800 



THEN 
THEN 

THEN 
THEN 

THEN 
THEN 

THEN 
THEN 



X=X-B:DI-4:RETURN 
X=X+8:D 1=3: RETURN 

X=X+B:DI-3:RETURN 
X=X-8:DI=4:RETURN 

Y=Y-8!DI=1:RETURN 
Y=Y+S:DI=2: RETURN 

Y=Y+B:DI=2:RETURN 

Y=Y-8:DI=I : RETURN 



THEN Y=Y+8:DI=2: RETURN 



THEN 
THEN 



Y=Y+B:DI=2:RETURN 
Y=Y-8:DI=1:RETURN 



411 



+ 1: IF 
160O:CURSOR22O, 184:PRINT CHR*<5) ;SC:KF=KF+1: IF 



409 

410 

411 

412 

16 

413 

414 

TU=t 

415 


IF AD=24a THEN BOO 
IF AD=126 THEN GOTO 1700 
C=C+1 ! A <C) =X : E (C) =Y: R=R+1 
IF R=10 THEN R=0: CURSOR 22 


0, 184 


:SC 


=SC+5: 


! PR I NT 


CHR* (5) 


;SC: 


TL= 


TL+2: 


TU=lii 


BOTO 


4 


IF TU=0 
IF TU-1 
i>; RETURN 
RETURN 


THEN 
THEN 


416 
CURSOR 


A<C~1) 


!,B(C- 


1) : 


PRINT 


CHR* (236) :TK= 


=TK+1 


: IF 


TK=2 


THEN 


TK=Oi 
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416 CURSOR A(C~1) ,B<C-1> SPRINT CHR* (236) : CURSOR A ( tC-TL) -1 > , B ( <C-TL) -1 > : PRINT CH 

R*(8) : RETURN 

550 AD=INT (G/8)*256+INT C Z/B ) *B+0M0D8 

560 RETURN 

600 VPDKEAD+1 , ?/H18: VROKEAD+ 1 +?/H2m0O, ?.HS1 

610 VPDKEAD+2,?-(H3C: VPaKEAD+l+?<H2000,S.HBl 

620 VPOKEAD+3, S.;H7E: VPOKEAD+2+SfH20OO, 8<HB1 

630 VPOKEAD+4, ?(H7E: VP0KEAD+3+^H2000, ?vHBl 

640 VPOKEAD+5, S<H18: VPOKEAD+4+S.H20OO, 8(HF1 

650 VPOKEAD+6 , ?<H 1 8 : VP0KEAD+5+&H20OO , ?<HF 1 

660 RETURN 

700 CIRCLE (X+4,Y+4) , 3, 4, 1 , , 1 , BF 

710 RETURN 

800 OUT 8.H7F,&HE4:F0R X=?.tHFO TO ?<HFF; 0UT^H7F, X 

BIO FDR DE=1 TO 20: NEXT DE 

820 NEXT X 

840 CIRCLE ( A CO +2, B(C) +3) ,3, 13, 1,0, 1 

850 CIRCLE (A<C)+2,Ei(C)+3) ,5, 13, 1,0, 1 

860 FOR 1=0 TO TL 

870 CIRCLE (A£C-I>+2,B(C-I)+3) ,2, 13, 1.0, 1,BF:NEXT I: IF SOHS THEN HS=SC 

880 SCREEN 2, 2: CLS 

890 CURSOR 100,eO:PRINT"YaUR SCORE WAS";: PRINT SC 

900 CURSaR100,50:PRINT "TRY AGAIN Y/N?":GOSUB 3000: FL=2: RETURN 

1000 VPDKEAD+1 ,?^H04:VPDKEAD + 2 + ?(H2000,?'HEl 

1010 VP0h;EAD + 2,?<H0B: VP0KEAD + 2+?.H2000,!.HEl 

1020 VPOKEAD+3, ?yH18: VP0KEAD + 3+?:;H2000, S/H81 

1030 VPOKEAD+4, ?<H3C: VP0KEAD + 4 + ?<H2000 , S^HS 1 

1040 VPOKEAD + 5, ?'.H3C: VPDKEAD+5 + .^H2000, ?.Hai 

1050 VPDKEAD + 6,?<H18; VP0KEAD+6+?<H2000,S<H8l 

1060 RETURN 

1070 VP0KEAD+1,«<H0B: VPOKEAD+l+8(H2000,S(H21 

1080 VPOKEAD+2,?<HlC:^/POKEAD + 2+&H2000,?.HAl 

1090 VP0KEAD+3,?<H1C: VP0KEAD+3+?/H2000,?'HAl 

1100 VP0KEAD+4,?<H1C: VPQKEAD+4+8.H2000, S.HA1 

1110 VP0KEAD+5,&H1C: VPOKEAD + 5+I?<H2000,?.HAl 

1 120 VPOKEAD+6, ?<H08: VPOKEAD+6+?yH2000, 8(HA1 

1130 RETURN 

1500 SOUND 1,698, 1 5: SOUNDl , 831 , 15: SOUND 1 , B80, 1 5 : BOUND 1 , 698, 15:S0UND0 

1510 RETURN 

1600 SOUNDl .440, 15:SDUND1 , 415, 15: SOUNDl , 349, 15: SOUNDl , 440, ISsSOUNDO 

1610 RETURN 

1700 X=A(C~TL) : Y=B(C-TL) :FOR 1=0 TO TL 

1710 ACC-I)=A<C-TL+I) 

1720 NEXT I 

1730 FOR 1=0 TO TL : B (C- I) =B ( C-TL+I ) : NEXT I 

1740 CH=1:GDT0 400 

IBOO IF DI=1 THEN DI=2: RETURN 

1810 IF DI=2 THEN DI==1:RETURN 

1820 IF DI=4 THEN DI=3: RETURN 

1830 IF DI=3 THEN DI=4: RETURN 

1900 SCREEN 2, 2: CLS: CURSOR 20,80 

1901 SOUNDl, 392, 15: GOSUB 4210:SOUND 0: SOUNDl , 392, 15: GOSUB 4210: SOUNDl , 523, 15: GOS 
UB 4210: SOUNDl, 392, 15: GOSUB 4210: SOUNDl , 523, 15 

1902 BOBUB 4210:S0UND1,659, 15:G0SUB 4210: SOUNDl , 523, 15; GOSUB 4210:G0SUB 4210:SOU 
NDO: SOUNDl. 523, 15: GOSUB 4210: SOUND O: SOUNDl , 523, 15: GOSUB 4210 

1903 SOUNDl, 659. 15:G0SUB 4210: SOUNDl , 523, 15: GDSUB 4210: SOUNDl , 659, 15: GOSUB 42l0i 
SOUNDl, 784, 15: GOSUB 421 0: SOUNDl , 659, 15: GOSUB 4210:eOSUB 4210sS0UND0 

1906 IF LE>5 THEN MES* <LE) =MES* (5) 

1907 PRINT MEB4CLE) : :PRINT "-PREPARE FOR ROUND ";: LE=LE+ 1 : PRI NT LE 

1908 FOR 1 = 1 TO 500:NEXT I: IF SOHS THEN HS=SC 

1910 FL=1: RETURN 

2000 CV=l:X=12B:Y=96:DI=4:KT-0: ACO)=l2B:B(O)=96:C=O:R=O:TL-0:TU=OiSC=SCL 

2010 MAGO:PATTERNSttO, '■81423C5AFF7E663C" 

2020 RETURN 

2100 SCREEN 2,2:CLS:C0LDR10,1, <0,0)-(255,191),1:CURSOR104,8!PRINT "SERPENT" : CURS 

0R190, 184;PRINT '-SCORE'- : CURSDR170, 176: PRINT "HI-SCORE- ; s PRINT HS 

2110 Y=8:FDR X=16 TO 88 STEP 8; GDSUB 700: NEXT X 

2120 Y=8:F0R X=152 TO 248 STEP B: GDSUB 700: NEXT X 

2130 Y=176:F0R X=16 TO 162 STEP B:GOSUB 700:NEXT X 

2150 X=16:F0R Y=8 TO 168 STEP 8:G0SUB 700:NEXT Y 

2160 X=248:FaR Y=B TO 168 STEP 8: GDSUB 700: NEXT Y 
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2176 FDR 1=1 TO LE*4:GDSUB 22O0:GaSUB 2220:G0SUB 2200! GOSUB 2230: GOSUB 22O0:G0SU 

B 2240: NEXT I : RETURN 

2200 DEF FNS(B)=INT(RND( l)*G)»8 

2210 Z=FNS(30) :Q=FNS<22) 

2211 CP=VPEEK(INT( (Q+3) /B) *256+INT (Z/8) *8+ (Q+3) M0D8) 

2212 IF CP=24 THEN 2200 

2213 IF CP=126 THEN 2200 

2215 IF CP=28 THEN 2200 

2216 IF Z<24aRZ>240 THEN 2200 

2217 IF Q< 1 6QRQ :^ 1 4.8 THEN 2200 

2218 IF Z=128aRQ=96 THEN 2200 

2219 RETURN 

2220 GOSUB 550: GOSUB 600: RETURN 
2230 GOSUB 550: GOSUB 1000: RETURN 
2240 GOSUB 550: GOSUB 1070:RETURN 
2280 RETURN 

3000 A«=INKEYt: IF A*="" THEN 3000 

3010 IF A»="Y" THEN RETURN 

3020 IF A»="N" THEN END 

3030 GOTO 3000 

4000 SCREEN 2, 2: CLS; COLORl , 9 , < O, 0> - < 255, 191) , 9 

4010 Y=20: X=60:MAG1:PATTERNS#O, '■81423C5AFF7E663C" : CL=1 : SV=1 : MC=1 

4020 READ A,B,C,D 

4030 LINE <A,B)-(C,D) ,CL 

4040 IF A=l THEN 5000 

4050 GOTO 4010 

4060 IF SV=1 THEN SPRITE O, < X , Y) , 0, 4: X=X+20s IF X=200 THEN SV=2:Y=110 

4070 IF SV=2 THEN SPRITE O, ( X , Y) , O, 4: X=X-20! IF X=60 THEN SV=l!Y=20 

40BO A»=INKEY*:IF A*=CHR*(32) THEN SOUNDO: RETURN 

4090 IF MC=1 THEN 4130 

4100 IF MC=2 THEN 4140 

4110 IF MC=3 THEN 4150 

4120 IF MC=4 THEN 4160 

4130 MC=2:S0UND1, 147, 15:S0UND2,8e0, 15:G0SUB 4200: S0UND2, 831 , 15: GOSUB 42O0SSOUND2 

,698, 15: GOSUB 4200: BOUNDl . 175, 15: S0UND2, 880, 15: GOSUB 4200 

4135 GOSUB 4200: S0UND2, 880,0: GOSUB 200: SOUNDl , 220, 15: GOSUB 4200sGDSUB 4200SGOT0 

4060 

4140 MC=3; SOUNDl, 147, 15: S0UND2, 831, 15: GOSUB 4200: S0UND2, 880, 15: GOSUB 42O0:SOUND2 

,69B, 15:G0SUB 4200: SOUNDl , 175, 15: S0UND2, B31 , 15: GOSUB 4200:G0SUB 4200 

4145 SOUNDl, 220, 15: BaUND2. 880, 15: GOSUB 4200: GOSUB 420©: GOTO 4060 

4150 MC=4: SOUNDl, 131, 15: S0UND2,7B4, 15: GOSUB 4200: S0UND2, 698, 15: 60SUB 42O0!S0UND2 

,659, 15: GOSUB 4200: SOUNDl , 165, 15: S0UND2, 784, 15: GOSUB 4200 

4155 S0UND2, 698, 15: GOSUB 4200: SGUNDl , 196, 15: S0UND2, 659, 15: GOSUB 4200: S0UND2, 523, 

15;GQBUB 4200: GOTO 4060 

4160 MC=1:S0UND1, 147, 15:S0UND2,5e7, 15:G0SUB 4200:GOSUB 4200eG0SUB 4200: SOUNDl , 17 

5, 15: GOSUB 4200: GOSUB 4200: GOSUB 4200: SOUNDO: SOUNDl , 220, 15: GOSUB 42O0GOSUB 4200: 

GOSUB 4200: SOUNDO: GOTO 4060 

4200 FOR 1=1 TO 25:NEXT I:RETURN 

4210 FOR 1=1 TO 20:NEXT IiRETURN 

4300 DATA 40,40,45,45,45,45,38,53,38,53,46,62,48,62,39,73,39,73,34,69,34,69,41,6 

2,41,62,30,50,30,50,40,40 

4310 DATA 67,42,79,50.79,50,76,54,76,54,70,50,70,50,67,54,67,54,70,52,70,52,68,6 

0,68,60,65,58,65,58,62,62,62,62,72,68,72,68,70,72,70,72,55,62,55,62,67,42 

4320 DATA 85.45, 103,39, 103,39, 100,53, 100,53, 1 10, 58, 1 10, 58, 108, 62 ,J 08, 62, 97, 60, 97 

,60, 102,68, 102,68,99,71,99,71,85,45,97,45,95,52,95,52,90,47,90,47,97,45 

4330 DATA 131 , 43, 144, 59, 144,59. 126, 64, 1 26, 64, 1 IB, 74, 1 18, 74, 1 14, 71 , 1 14, 71 , 131 , 43, 

131,51, 136,57, 136,57, 128,58, 128,58, 131,51 

4340 DATA 160,38, 164, 42, 164, 42. 155, 49, 155, 49, 159,52, 159, 52, 163, 49, 163, 49, 165, 52, 

165,52, 160,57, 160,57, 165,63, 165,63, 172,58, 172,58, 176,60, 176,60, 164,71, 164,71, 147 

,50, 147,50, 160,38 

4350 DATA 180,70, 192,53, 192, 53, 199, 60, 199, 60, 210, 51 , 210, 51 , 199, 69, 199, 69, 191 , 62, 

1 9 1 , 62 , 1 83 , 73 , 1 83 , 73 . 1 80 , 70 

4360 DATA 217,45,235,44,235,44,235,50,235,50,229,51,229,51,229,70,229,70,224,70, 

224,70,224,51,224,51,217,51,217,51,217,45,1, 1,1,1 

4500 SCREEN 1 , 1 : CLS 

4505 PRINT "YOU CONTROL A HUNGRY SERPENT" : PRINT 

4510 PRINT "YOU CAN ONLY TURN LEFT OR RIGHT" 

4520 PRINT "ACCORDING TO YOUR DIRECTION OF" 

4530 PRINT "TRAVEL": PR I NT 

4540 PRINT "USE THE " ; CHR* < 142) ; " KEYS TO BO LEFT AND RIGHT" 
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4560 
457© 
4530 
4590 
4595 
4596 
4600 
4610 
4620 
4630 
4635 
4640 
4650 

5000 

1:PA 

5010 
5100 

5110 



PRINT "TD GO LEFT DR RIGHT ": PRINT 
PRINT "EAT FRUITS FOR POINTS BUT AVOID" 
PRINT "EATING YOUR OWN DROPPINGS OR HITTING" 
PRINT "THE WALLS OR YOU WILL EXPLODE" ! PR INT 
PR I NT "YOU ALSO SCORE POINTS EACH TIME YOU" 



"GROW": PRINT 

"HITTING A MAGIC MUSHROOM CAUSES" 
"STRANGE THINGS TO HAPPEN-YOU WILL" 
"CHANGE DIRECTION AND A PART OF YOUR' 
"BODY WILL SNAP OFF-BEWARE" 
: PRINT "[ HOLD DOWN SPACEBAR TO PLAY 
IF At=CHR*(32) THEN RETURN 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT : PRINT "[ HOLD DOWN SPACEBAR TO PLAY 3" 

A»=INKEY»; 
GOTO 4640 

PAINT (40, 45) , 1: PAINT (65, 50) , 1 : PAINT (95, 55) , 1 t PAINT ( 130, 50) , 1 :PAINT (155, 45) , 
INT (190, 60) , l! PAINT (225, 50) , 1 
CURSOR30. 154:PRINT"HDLD DOWN SPACE BAR TO PLAY":GOTO 4060 
MESt ( 1 ) ="GOOD" : MES* (2) ="VERY GOOD" : MES* (3) ^"EXCELLENT" 
MES« <4> ="FANTASTIC" ; MES* (5) =" INCREDIBLE" : RETURN 




Each issue, we would like to Invite Sega owners to send 



OF THE 
MONTH 



U¥F\i*FilPn\ 



l*Uh'^]f\l-i 



the {Magazine. Not only games programs, but utility pro- 
grams, and machine code or basic routines. Each pro- 
gram will be judged on originality, usefuilness, or play 
value, graphic content or design and layout, individual- 
ly depending on its use or function. 

Any programs which are considered to be commercially 
viable, separate contact will be made to agree terms. All 
other programs accepted for inclusion into the magazine, 
will receive a cassette program of the writers choice. 

One program each issue will be singled out as being the 
"Star Program of the Month", entitling the writer to 
select any one of Sega's game cartridges as their prize. 



ADDENDUM 



The following two lines should put right any problems you have been having with last issues INDY GP program due to 
a typesetting error. Some of program was missed and we apologise for any inconvenience caused. 

29H* PRINTCHR*(16) : F0RI = 15TO0STEP-. 5: SPRITEO, .e. 6: SOUND 1, 110, I:SPR1TE0. . 1. 10:SDUND4.0, I-.NEXTI 
380 C0L0R13!C:URSaRB5,90iPRINT"STRIKE A KEY TO START" 
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Teach Yourself 
Basic Games Programming 

A comprehensive guide to the fascinating world of games programming in Basic. This useful 
package contains a 60 page booklet crammed with information, demonstration programs 
and helpful hints. Comes complete with cassette program to run on 16 or 32K SC3000. 



\ 





Beginners Guide 



Take the frustration out of getting to know your Sega computer. Contains practical advice 
on all aspects of using the SC3000 and its peripheral attachments. Written in New Zealand, 
this book is a must for Sega owners unfamiliar with the basic computer language and 
explains in simple terms how to get the best from your favourite micro. 



Ihe Hard lUord from 



SEGA'S new hard keyboard and new 
hard disk drive, make Sega even 
harder to beat. 

The very latest industry standard 3" 
diskettes store a massive 32BK of in- 
formation each desk, and operate at 
speeds far in excess of their older SVz 
inch counterparts. 

Sega's super control station wiii also 
enable you to connect to many other 
attachments such as business printers 
electronic typewriters even telephone 
moderns, through it's two additional 
1/0 ports, for RS232C and parrallel 
interfaces. -....wvvvw 




lA KS:3^SSS^ 




Sega now boasts not only 1 

learn basic language, the most 'i^^^^^^^^^^H^P*'^'^^- ^ 
sensational range of cartridge andT!^re^^3^res^a|ffirb educa- 
tion and applications software written by and for New Zealanders. 
but also a very sophisticated, fast, small business system, with the 
state of the art Sega control station. 

Feel the difference, see the difference, compare the difference, 
and you too can enjoy the difference of Sega superiority. 
Call at any Sega stockist for a demonstration or contact 
Grandstand Leisure at: Box 2353 AUCKLAND 



